불황타개법

xbroyw의 이미지

이곳에 오시는 분들은 불황을 안겪으시나요.
그저 열심히 자신의 일에 열중하고 계시는건가요?
기술을 익히며...

저는 요즘 다양한 재테크를 생각중입니다만...

주식은 100%를 잃을수도 1000%를 얻을수도 있지만 역시 노동강도가 너무 강하죠.
부동산은 결국 아줌마들의 포스를 이겨내야하고...
펀드는 안목이 있어야하고...

결국 로또뿐이군요.

#! /usr/local/python

print "hello,lotto\n"
import random

for i in range(1,6):
print random.randint(1,45),

hello,lotto
34 7 29 16 21

아, 이제 기다리면 되는건가효?....

codebank의 이미지

저런...

6개의 숫자를 출력하셔야죠.
------------------------------
좋은 하루 되세요.

------------------------------
좋은 하루 되세요.

whitelazy의 이미지

40장씩 사면 됩니다 ...
5개숫자 제외한 나머지번호를 끝자리로 =33

그런데 로또가 40장씩 살수있던가모르겠네요 ㅋ

xbroyw의 이미지

-
: )=
-
원인이 없는 결과는 없다.

-------
good job :)
-------

Fe.head의 이미지

움.. 이시기가 돈 벌식에 딱인것 같습니다.

경제를 잘읽기만 하면 진짜 백년만에 한번나올까 말까하는 시기일 수도 있습니다.

다음 블랙스완이 무엇인지 맞춘다면.. 대박이겠지만.. ㅎㅎ

블랙 스완을 잡는것 보다는 실물경제 그래프만 잘봐도 손해는 안나게 만들수는 있을듯 보이네요.

-----------------------
과거를 알고 싶거든 오늘의 네 모습을 보아라. 그것이 과거의 너니라.
그리고 내일을 알고 싶으냐?
그러면 오늘의 너를 보아라. 그것이 바로 미래의 너니라.

고작 블로킹 하나, 고작 25점 중에 1점, 고작 부활동
"만약 그 순간이 온다면 그때가 네가 배구에 빠지는 순간이야"

clique의 이미지

중복된 숫자가 나올 것 같습니다 :)

aero의 이미지

perl -MList::Util=shuffle -le 'print "@{[(shuffle 1..45)[0..5]]}"'

iamt의 이미지

print "hello,lotto\n"
import random
temp = 0
NUM = []
 
def generate():
    temp = random.randint(1,45)
    if temp in NUM:
        generate()
    else:
        NUM.append(temp)
 
for i in range(1,7):
    generate()
 
NUM.sort()
print NUM
 
# 개선점 : 숫자가 5개밖에 안뽑히던걸 6개로 증가.(6개 아닌가요??;)
#          중복된수가 나오는걸 제거.
#          수를 리스트형으로 관리.

---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

xbroyw의 이미지

-
: )=
-
버그?를 보면서 은근 꼼꼼하지 못함과 실패를 자학하고 있었는데...
경제의 불황이나 개인의 불황이나 다 원인이 있기 마련이죠...

감사합니다. :)

-------
good job :)
-------

talpo의 이미지

[1,45] 중 6개를 뽑는다고 하더군요.

import random
i = range(1,46)
random.shuffle(i)
s = i[:6]
s.sort()
print s

쓰고보니 aero님의 perl버전과 로직이 동일하군요;;

iamt의 이미지

제꺼보다 이게 훨씬 직관적이네요.
멋있습니다 :-)
---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

xbroyw의 이미지


상당히 유용한 함수네요...

-------
good job :)
-------

monpetit의 이미지

shuffle() 대신 sample()을 쓰는 게 어떻겠습니까.

import random
i = range(1,46)
s = random.sample(i, 6)
s.sort()
print s

-----
익명으로 쓴 글은 볼 수 없습니다.
http://monpetit.tistory.com/

talpo의 이미지

import random
s = random.sample(range(1,46),6)
s.sort()
print s

sort가 in place함수가 아니었다면 더 좋을 뻔 했군요.
lifthrasiir의 이미지

sorted를 쓰시면 됩니다.

import random
print ', '.join(map(str, sorted(random.sample(range(1,46), 6))))
youlsa의 이미지

처음 든 생각이 python으로 하면 sample() 쓰면 한줄이면 되겠네. 하고 생각했는데...
어쩌면 저와 똑같은 코드를... ㅠ_ㅠ
혹시라도 lifthrasiir님이 쓰신 map이나 join 함수가 익숙하지 않은 분들을 위해 조금 간단하게 적어봅니다.

import random
print sorted(random.sample(range(1,46),6))

결과는 이렇게 나옵니다.
[1, 6, 7, 26, 31, 39]

번호 본 김에 몇년만에 이 번호로 로또나 한장 사야겠습니다. ^^

=-=-=-=-=-=-=-=-=
http://youlsa.com

=-=-=-=-=-=-=-=-=
http://youlsa.com

Prentice의 이미지

~/bin/lotto

여기 저장했습니다. ;)

iamt의 이미지

진짜 기가 막히게 잘짜시는군요 ㅠ
파이썬 특성상 보기는좋지만 규정된 들어쓰기와 여려줄이 생기게 된다는 고정관념이 확깨지네요..
많이 배우고 갑니다.
---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

bookgekgom의 이미지

그냥 랜돔 넘버 6 번 프린트 하는거죠?

6.times { print rand(45) + 1, " " }

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

aero의 이미지

중복숫자가 나오면 안되죠
ruby문법을 대강보니 이렇게 하면 되겠군요.
(루비 배열객체에 shuffle메소드가 기본으로 들어가 있네요.)

ruby -e 'puts (1..45).to_a.shuffle.first(6).join(" ")'

근데 왜 결과가 매 실행때 마다 똑같이 나올까요?
루비의 shuffle함수가 내부적으로 사용하는 random seed를 자동으로 reset하지 않아서인가?

ruby -e 'rand;puts (1..45).to_a.shuffle.first(6).join(" ")'

이렇게 하니 매번 다르게 나오긴 하는군요.
bookgekgom의 이미지

num = (1..45).sort_by { rand }[0..5]
num.sort.each { |i| print i, " "}

안그래도 다 짜고 있었는데 흑흑 ㅠㅠ

소팅도 되요.

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

bookgekgom의 이미지

님것 보고 약간 고쳤어요

print "Numbers Are: ", (1..45).sort_by { rand }.first(6).sort.join(" ")

join 과 first 를 썼음!

그런데 저위에 펄은 어렵네요.

펄이 더 쉽다는 사람들은 천재인듯...-_-

펄은 마음에 안들었음 책표지가 낙타일 때부터 알아 본거임

낙타 흐흐

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

aero의 이미지

One-liner로 해서 해서 그렇지

perl -MList::Util=shuffle -le 'print "@{[(shuffle 1..45)[0..5]]}"'

에서 실제 프로그램 부분은
print "@{[(shuffle 1..45)[0..5]]}"

뿐이죠 앞은 다 명령행 옵션이고 원라이너를 풀어쓰면
use List::Util qw/shuffle/;
 
print "@{[(shuffle 1..45)[0..5]]}\n"

하나씩 뜯어보면

1..45 는 범위 연산자로 1~45까지의 정수의 리스트를 넘겨주고

List::Util 모듈의 shuffle함수는 리스트를 받아서 무작위로 섞어주니깐

shuffle 1..45 라고 쓴거고 이것은 또 무작위로 섞은 리스트를 넘겨주고

Perl의 리스트 슬라이스 문법이 ( LIST )[ LIST ] 이니깐
(shuffle 1..45)[0..5] 하면 무작위로 섞은거에서 0~5인덱스 값을 가져오는 거고

찍을때는
print join(" ",(shuffle 1..45)[0..5]),"\n";
으로 해서 리스트를 " "으로 붙여서 찍을 수 있지만

Perl에서는 쌍따옴표에서 배열변수를 쓰면 배열 내용을 알아서 공백으로 띄워서 찍어주니깐
배열을 쓰려고 하니 (shuffle 1..45)[0..5] 는 배열이 아니라 리스트이기 때문에
꽁수로 (shuffle 1..45)[0..5] 를 익명배열로 만들어서 [(shuffle 1..45)[0..5]]
다시 @{ }을 써서 배열로 디레퍼런스해서 @{[(shuffle 1..45)[0..5]]}

print "@{[(shuffle 1..45)[0..5]]}"

이렇게 한 이유는 단지 join을 썼을때 보다 짧기 때문 :)

bookgekgom의 이미지

흑흑ㅠㅠ

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

pung96의 이미지

aero 님 말씀 그대로 짧게 써서 그렇죠.
join 을 사용해서 조금 더 길게 쓰면

print join " ", ( shuffle 1..45 )[0..5]

이정도면 어떤가요? 아직도 어려워요?

aero님처럼 어렵게(?) 쓰는건 다음 두가지 요건을 만족하기 때문입니다.
1. aero님은 고수다.
2. 한번 쓰고 버릴(?) 코드다.

sangheon의 이미지

동감합니다. aero 님은 고수~

--

B/o/o/k/w/o/r/m/

--

Minimalist Programmer

inniskun의 이미지

루비는 따로 모듈 불러 들일필요없이

# ruby -e 'p (1..45).sort_by{rand}[0..5]'
[13, 41, 36, 29, 2, 1]

이정도로 끝.....

눈에 보이는 모든것은 보이지 않는 것들로 이루워져 있다.
Nobody reachs the Truth~*

눈에 보이는 모든것은 보이지 않는 것들로 이루워져 있다.
Nobody reachs the Truth~*

죠커의 이미지

주식이 노동강도가 높다는 것도 잘못된 것이라고 봅니다. 투자 대상에 분봉을 적용할 수도 있고 일봉을 적용할 수도 있고 주봉이나 월봉을 적용할 수도 있습니다. 포트폴리오 전체를 교체하는 것을 회전율이라고 하는데 워렌버핏의 회전율이 얼마나 되겠습니까?

- 죠커's blog / HanIRC:#CN

select99의 이미지

C 도 만들어봐야죠..

        int n[6],i,j;
        for( i = 0; i<6; i++ )
        {
                n[i] = random()%45 +1;
                for( j = 0; j < i; j++ ) if( n[j] == n[i] ) break;
                if( i == j ) printf( "%d ", n[i] );
                else i--;
        }
koseph의 이미지

#include <stdio.h>
#include <stdlib.h>
#include <time.h>
 
#define	MAX_PICKS	6
#define MAX_BALLS	45
 
int compare (const void *a, const void *b)
{
	return ( *(int*)a - *(int*)b );
}
 
main ()
{
	int count, pick, lottos[5], *result, *notfound;
	size_t nelem = MAX_PICKS;
 
	srandom( (unsigned int) time( NULL ) );
	for (count=1; count<=MAX_PICKS; count++) 
	{
		// pick a ball randomly
		pick = random()%MAX_BALLS + 1;
		// search if the picked number is already existed.
		result = (int *) lfind( &pick, lottos, &nelem, sizeof(int), compare );
		if (count == 1) notfound = result;
		if (result == notfound) lottos[count-1] = pick;
		else count--;
	}
 
	// sorting the MAX_PICKS numbers 
	qsort (lottos, MAX_PICKS, sizeof(int), compare);
 
	// output the sorted results
	printf("당신의 로또 번호는 ");
	for (count=0; count<=5; count++) printf("%d ", lottos[count]);
	printf("\n잊지 말고 구입하세요!!\n");
}

---------------------------------
There's always another way, dear.

---------------------------------
There's always another way, dear.

redneval의 이미지

Haskell 입니다.

module Main where
import System.Random
main = do
    gen <- newStdGen
    let rs = randomRs (1,45) gen :: [Int]
    let unique (x:xs) = x : unique [y | y<-xs, y /= x]
    print $ take 6 $ unique rs

--------------------Signature--------------------
Light a candle before cursing the darkness.
bookgekgom의 이미지

public static void main(String[] args) {
String num = "Number is: ";
for(double i=7.5;i <= 45;i += 7.5)
num += (int)(Math.random() * 6.5 + i - 6.5) + " ";
System.out.println(num);
}

완벽해!

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

select99의 이미지


로직이 좀 잘못된듯하네요.

로또번호가 구간에 고르게 분포된다는 조건은 없는거같은데요..

중복제거를 위해서 하신거같은데.. 중복발생은 안될지 몰라도..

1 2 3 4 5 6 과같은번호도 발생할수 있어야되는거죠..

bookgekgom의 이미지

저도 그생각을 하고 있었는데

그냥 넘어가 주시지 ㅠㅠ 흐르르흐흓

음...어떻게 고친다...수학을 쓰기는 좀 힘드네염

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

neocoin의 이미지

Java

import java.util.ArrayList;
import java.util.Collections;
import java.util.HashSet;
import java.util.List;
import java.util.Set;
 
public class Lotto {
	public static void main(String[] args) {
		Set<Integer> numbers = new HashSet<Integer>();
		while(numbers.size()<5)
			numbers.add((int)(Math.random()*100 %45 +1));
		List<Integer> numberList = new ArrayList<Integer>(numbers);
		Collections.sort(numberList);
		System.out.println(numberList);
	}
}

I like ruby. --;

amorette의 이미지

Perl 6

(1 .. 45).pick(6).fmt("%s").say

또는..

say "{ [1..45].pick(6) }"

bookgekgom의 이미지

숫자가 중복되는것이 없고 작은 것에서 큰것으로 나열이 되있나요?

정말 놀랍군요 0ㅁ0 좀 짱인듯.

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

amorette의 이미지

> say "lotto: " ~ (1..45).pick(6).perl
lotto: [40, 4, 26, 16, 18, 15]

굳이 소트해야 된다면,

> say "lotto: " ~ (1..45).pick(6).sort.perl
lotto: [3, 6, 20, 25, 41, 44]

나는 괄호가 싫어요!! 라면,

> say "lotto: { (1..45).pick(6) }"
lotto: 2 6 20 25 21 24

amorette의 이미지

.
.
.
띄어쓰는 다른 방법 발견

> [(1..45).pick(6)].say
19 10 39 25 35 30

> say ~[1..45].pick(6)
1 44 3 21 10 41

natas999의 이미지

예상대로 로또 쓰레드가 되어가네요.

# emerge girl-friend
Calculating dependencies
!!! All wemen who could satisfy "girl-friend" have been masked.

# emerge girl-friend
Calculating dependencies
!!! All wemen who could satisfy "girl-friend" have been masked.

blkstorm의 이미지

기왕 이렇게 시작된거, 랭귀지별(Perl,Python,Ruby등등) 적중률 비교를 해보는것도 재미있겠군요. ㅎㅎ

조금 더 세분화 해서, 랭귀지 버전별(Perl5/6, Python 2.5/2.6), 아키텍쳐 별(x86, amd64)...

redneval의 이미지

blkstorm 님이 자금을 대주시면,

제가 직접 구입해보고 적중률비교분석을 하겠습니다. :)

--------------------Signature--------------------
Light a candle before cursing the darkness.

xbroyw의 이미지


이제 남은 건 말씀마따나 적중률에 대한 신뢰도 점검일텐데...

알고리즘에 대한 브레인스토밍도 재미 있을듯 하네요.

빈도수, 가중치는 결과적인 내용이니까 이것을 이끌어 낼 수 있는 좀더

상세한 논의가 필요하겠죠.

뭐 주성분을 구한다던가...45개 숫자 중 6개에 대한 주성분이라...

임의의 회차에서 1등에 선택된 숫자에는 1, 아니면 0을 부여하면...

모든 회차에 대한 임의적 가중치가 부여되는데 상관성은 비슷한 숫자의 그룹이

생성된 횟수가 결국 가장 중요한 중요도를 차지할 가능성이 높아보이네요.

뭐 이런 식으로 시나리오가 나올 수 있는데...

물론 이것은 그냥 시나리오일 뿐이고 논리적인 검증도 안된 상태인 스토밍의 과정인데...

이런 식의 알고리즘 상상하기도 재미있을듯하네요...

(왠지 석사논문을 쓰는 누군가의 압력이 있는듯한 전개가...ㅋ)

아마 모르긴 몰라도 잘 찾아보면 석사논문 1, 2편은 찾을 수 있을듯... :)

-------
good job :)
-------

bookgekgom의 이미지

생각해 보니 정말 이상하네염

그러면 티비에서 보는 복권 당첨 번호는 누가 뽑는거죠?

만약 씨가 뽑는거라면 씨로 프로그램 돌려서 번호 얻으면 좋겠네요.

설마 사람이 하나 하나 뽑나? (이건 좀 아닌듯)

프로그램돌려서 얻는 번호라면 아무리 랜덤이라도 패턴이 있을지도!?

전 복권을 긁는거 몇번밖에 안해봐서

ㅇㅅㅇ....

잇힝...

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

블루스크린의 이미지

돌아가는통에 공을 넣고 기계에 의해서 하나씩 자동으로 나옵니다
사람손은 거치지 않고요
컴퓨터 랜덤값하고는 좀 다르다고 봐야죠

-------------------------------------------------------------------------------
이 댓글(comment)의 수정 및 삭제를 위해 이 글에 답글(reply)을 쓰지 말아 주십시요.
의견이 있으시면 원 글에 댓글(comment)로 써 주세요.

-------------------------------------------------------------------------------
이 댓글(comment)의 수정 및 삭제를 위해 이 글에 답글(reply)을 쓰지 말아 주십시요.
의견이 있으시면 원 글에 댓글(comment)로 써 주세요.

codebank의 이미지

블루스크린님(에게 댓글을 달려다 수정하신다니 여기다가...) 말씀대로 기계가 알아서
뽑습니다.
다만, 수학적인 방법으로는 처음 숫자 다음에 나오는 숫자는 확률적으로 계산이 가능하다고
미국 드라마에서(이름이 넘버스였나 그랬습니다.) 말하더군요.
모든 문제를 수학적 관점에서 풀이하는 드라마라서 약간의 억지가 있는게 아닐까 생각도
들기는 하지만 뭐 해당 드라마가 감수도 받으면서 제작될테니 어느정도는 일리가 있을
거라는 생각도 들긴 하지만...
이와 비슷한 영화도 작년인가 나왔었던 걸로 기억합니다. 블랙젝인가 뭔가를 수학과
학생들이 확률 맞추는 방식으로 게임을해서 돈을 왕창 딴다거나 하는 뭐 그런 줄거리의
영화였던걸로 기억하는데...

어쨌든 뽑을 때의 환경조건이나 시간대 처음 볼이 배치된 위치나 첫번째 공이 나올 시간
등등의 조건등이 구해진다면 수학적으로 풀이는 가능하다고... 다만 그 상태를 알아야만
로또 1등에 당첨되기 때문에 이것도 그냥 로또를 랜덤으로 찍어내는거랑 별반 다르지
않을까 생각이 들긴합니다. :-)
------------------------------
좋은 하루 되세요.

------------------------------
좋은 하루 되세요.

xbroyw의 이미지

굳이 답글을 달자면
그 수학적 이라는 말은 정리가 가능하고, 재현가능하다는 표현으로 들립니다.
뭐냐...르네상스투자라는 헤지펀드회사의 사장이 그 수학교수였으며, 지금도
물리학, 수학 전공자들을 뽑는다고하죠?
투자와 로또는 물론 다른 경우입니다.
다만, 45개 숫자 중 6개를 뽑는데 램덤으로 찍어낸다면 (야후 지식인)
1등 6개 숫자 (보너스숫자 제외) 1/8,145,060(=45*44*43*42*41*40)
2등 6개 숫자 중 5개 숫자 일치+1개 보너스 숫자 일치 1/357,510
3등 5개 숫자 (보너스 숫자 제외) 1/34,808
4등 4개 숫자 (보너스 숫자 제외) 1/733
5등 3개 숫자 (보너스 숫자 제외) 1/45
이런 확률인데
저 1등의 확률만을 따진다면 과연 확률이란게 무색해지는 경우이긴 합니다.
다만 과거의 선택된 번호들과의 연관성을 이용해보자는게 굳이 따지자면 수학적인 혹은 과학적인
접근 방법이 되겠죠. 결론은 과거의 숫자에서 패턴연구가 가능하지 않을까 하는게 요점입니다.
그래야 평가가 가능한 (재현되기 때문에) 과학(수학)이 되는 거 겠죠?

우연히 TV를 보니까 정확하게 밝히지는 않지만 로또를 연구하는 분이 계시더군요.
집에 연구실을 차려서 ...
2등을 수차례 뽑은 경험이 있는, 매니아를 거느린 분이었는데 재미있어서 덧붙였습니다. :)

-------
good job :)
-------

권순선의 이미지

이 글타래를 죠리퐁 세기 글타래에 버금가는 성지로 한번 육성해 볼까요... ^^

snowall의 이미지

이미 무럭무럭 자라는 것 같습니다.

조만간 KLDP는 Korean Lotto Development Project가 될 것입니다. :D

--------------------------
snowall의 블로그입니다.
http://snowall.tistory.com

피할 수 있을때 즐겨라! http://melotopia.net/b

chunsj의 이미지

웃지 않을 수 없는 답글입니다. 얼마나 많은 언어가 달릴지...

roylory의 이미지

제가 통계나 수학에 전문적 지식은 없지만, 적중률을 높이는 방법에는 근본적으로 2가지 접근법이 있을것 같습니다.

1. 자주 나온 숫자는 또 나올 확률이 높다.

- 자주 뽑히는 공은 물리적으로 뭔가 이유가 있을지도 모르죠...

2. 한동안 안나온 숫자가 나올 확률이 높다.

- 이 우주는 모든 숫자가 골고루 나오게 하려는 의지가 있지 않을까요?-_-;
- 예를들어 어떤 숫자가 연속 2주 나왔다면, 다음주에 또 그 숫자가 뽑힐 가능성은 낮아질 것 같습니다.

결국 당연한 말이지만, 가중치, 빈도수 등을 이용해야 되는 것일테죠.

로또 데이터를 이용해서, 어떤 알고리즘이 더 효율적인지 테스트하는 프로그램도 필요할 것 같고요.

음 누군가 혁신적인 아이디어를 코드로 구현하시리라 믿습니다 ㅋㅋ

Korean Lotto Development Project ㄱㄱ!

snowall의 이미지

두가지 방법을 모두 적용하면 모든 숫자가 골고루 나오게 되겠죠...

--------------------------
snowall의 블로그입니다.
http://snowall.tistory.com

피할 수 있을때 즐겨라! http://melotopia.net/b

codebank의 이미지

이쯤 되면 올라올법한 적절한 데이터...

회수,번호1,번호2,번호3,번호4,번호5,번호6,보너스

누가 이제 확률적 계산을... :-)

P.S. : 은근히 로또 다음번호를 찾아주는 무료 프로그램들이 많이 있더군요.
공개되어있기도하고 그래프를 그려주기도하고... :-)
------------------------------
좋은 하루 되세요.

댓글 첨부 파일: 
첨부파일 크기
Plain text icon output.txt7.43 KB

------------------------------
좋은 하루 되세요.

warpdory의 이미지

로또 번호 6개 알려주고 몇만원 받는 이른바 '도사' 또는 '보살' ... 많습니다.

... 로또 사서 당첨되는 확률보다 저기에 걸려드는 사람이 훨씬 많을 겁니다.

---------
귓가에 햇살을 받으며 석양까지 행복한 여행을...
웃으며 떠나갔던 것처럼 미소를 띠고 돌아와 마침내 평안하기를...
- 엘프의 인사, 드래곤 라자, 이영도

즐겁게 놀아보자.
http://akpil.egloos.com


---------
귓가에 햇살을 받으며 석양까지 행복한 여행을...
웃으며 떠나갔던 것처럼 미소를 띠고 돌아와 마침내 평안하기를...
- 엘프의 인사, 드래곤 라자, 이영도

즐겁게 놀아보자.

bookgekgom의 이미지

딴 사이트는 안믿겠지만

kldp 에서 만들어진 프로그램으라면 로또 하나 살의향있음

고로 고수님들 어서 프로그래밍 ㄱㄱ 신의 확률을 계산하셈

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

youlsa의 이미지

MFC 버전이 없어서야....

// stdafx.h : include file for standard system include files,
//  or project specific include files that are used frequently, but
//      are changed infrequently
//
#ifdef _WIN32_WINNT
#undef _WIN32_WINNT
#endif
#define _WIN32_WINNT 0x0500
 
#ifndef WINVER
#define WINVER 0x500
#endif
 
#if !defined(AFX_STDAFX_H__88608288_03BE_4754_85EE_558D52CF5CE3__INCLUDED_)
#define AFX_STDAFX_H__88608288_03BE_4754_85EE_558D52CF5CE3__INCLUDED_
 
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
 
#define VC_EXTRALEAN		// Exclude rarely-used stuff from Windows headers
 
#include <afxwin.h>         // MFC core and standard components
#include <afxext.h>         // MFC extensions
#include <afxdisp.h>        // MFC Automation classes
#include <afxdtctl.h>		// MFC support for Internet Explorer 4 Common Controls
#ifndef _AFX_NO_AFXCMN_SUPPORT
#include <afxcmn.h>			// MFC support for Windows Common Controls
#endif // _AFX_NO_AFXCMN_SUPPORT
 
//Skin Framework
#include "SkinSys/SkinDialog.h"
 
 
#include <ntddstor.h>
//{{AFX_INSERT_LOCATION}}
// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
 
#endif // !defined(AFX_STDAFX_H__88608288_03BE_4754_85EE_558D52CF5CE3__INCLUDED_)

.. 헉...헉...
.. 이제 이런 파일 50개만 더 올리면 되는데....
.. 양심상 더이상 못올리겠습니다..
..
.. 중략...
.. 죄송... ^^

=-=-=-=-=-=-=-=-=
http://youlsa.com

=-=-=-=-=-=-=-=-=
http://youlsa.com

ntalbs의 이미지

Oracle 10g 이상에서...

select *
from (select level from dual connect by level <=46 order by dbms_random.random)
where rownum <= 6
;
academic의 이미지

ms sql server도 추가합니다.

1부터 46까지 저장한 #lotto 라는 테이블을 만들고

select top 46 identity(int, 1,1) as number into #lotto from sys.all_columns;

이 테이블에서 랜덤하게 6개 뽑아냅니다.

select top 6 * from #lotto order by newid();

--
academic은 제 고등학교 때 동아리 이름입니다.
academic, 아주 가끔은 저도 이랬으면 좋겠습니다.

----
academic은 제 고등학교 때 동아리 이름입니다.
academic, 아주 가끔은 저도 이랬으면 좋겠습니다.

kudos의 이미지

C++ 버전.

C++ 답게 하려고 나름 고민-_-;

중복은 안나오는데 정렬은 안했네요

#include &lt;iostream&gt;
 
using namespace std;
 
class Lotto {
	int num[6];
public:
	Lotto() {
		srand(time(NULL));
		int i, j;
		for(i = 0; i < 6;) {
			num[i] = rand()%45+1;
			for(j = 0; j < i; j++) if (num[j] == num[i]) break;
			if (j < i) continue;
			i++;
		}
	}
	void print() {
		for(int i = 0; i < 6; i++) cout << num[i] << " ";
		cout << endl;
	}
};
 
int main() {
	Lotto* my_lotto = new Lotto(); // 두근두근
	my_lotto->print();
	delete my_lotto; // 로또 따위!
	return 0;
}

근데 그래서 불황 타개법은 로또인건가요???

분위기에 편승해 올리기는 하는데 뭔가 미묘한 느낌이...

* elyr.net

JuEUS-U의 이미지

echo "1 2 3 4 5 6";

인생은 한방이란 것을... 후후후...;;

snowall의 이미지

Bash 스크립트인가요? 언어를 명시하셔야...
:P
--------------------------
snowall의 블로그입니다.
http://snowall.tistory.com

피할 수 있을때 즐겨라! http://melotopia.net/b

stonetwo의 이미지

님들의 열성적인 글을 읽다보니.

주식 투자를 컴한테 전적으로 맡길수 있는 프로그래머가 있을지 궁금하네요.. ^^

참고로 저는 주식은 한번도 안해봤습니다. 즉, 수수료가 어떻게 되고 어떻게 주식 거래가 되는지도 모릅니다.

다만 프로그램을 아주 잘하는 사람이라면..

주식의 오르고 내림을 컴으로 분석해서 일정 수입이 보장되는 시점에서 시점까지 주식을 사고 팔면

물론 수수료도 고려해야겠죠.. ㅋㅋ

제일 처음 글에 주식이 노동강도가 높다고 하셨는데 전적으로 프로그램에 일을 자동으로 맡기고

사용자가 가끔씩 컴에서 옵션만 조정해준다면.

제일 중요한건 따로 통장을 만들어서 일정 수입이 생겼을때 이체를 해야겠죠..

그래야 주식이 폴싹 망해도 다시 할수 있는 자금이 생길테니.

주절주절 떠들어봤습니다. ^^

근데 현실적으로 자동 주식 거래는 불가능하겠죠? ^^ 은행 거래도 그렇고.. 설마.. ^^;;

여하간 사람이 일일이 판단과 반복작업을 하는것(노동강도가 높다?)을 컴에게 대신 시키는 것이

컴의 진정한 가치가 아닐까요? 반복작업을 군말없이 수행하는 컴.. ^^

그럼 즐거운 코팅 되세요. ^^

khris의 이미지

이미 하고 있습니다...;;

───────────────────────
pacman -S gothick elegant
khris'log :: http://khrislog.net

───────────────────────
yaourt -S gothick elegant
khris'log

iamt의 이미지

그래프 분석이라던지, 경제학에관한 그런 고차원적인 매소드가 동원되었는지는 저는 잘모르겠습니다만;;,

현재 잘 쓰이고 있습니다. 방법은 일정 가격차가 생기면 팔고 사고 합니다.

어찌보면 로또 보다 이걸 개량하는게 빠를지도 모르겠어요~
---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

---------------------------------------------------------------------------------
C(++)과 php 펄등을 공부하고있습니다.
반갑습니다! 리눅스 :-)

stonetwo의 이미지

그럼 고민하는 것보다 좋은 프로그램 받아다가 그거 사용하는게

로또 확률보다 더 좋겠네요..

근데 프로그램 쓰는데도 주식의 노동강도가 높다는 건가요? 음.. ^^

그럼 즐거운 주말 되세요. ^^

shockyhan의 이미지

대부분의 투자자들이 간과하는 계약서의 마지막 한줄이 있습니다.

Quote:
본 자료를 참고한 일체의 투자행위에 대한 최종적인 판단은 투자자에게 있으며, 당사는 그 결과에. 대해 책임을 지지 않습니다. 과거의 실적이 미래의 수익을 보장하는 것은 아닙니다.

과거의 실적이 아무런 정보를 주지 않는다는 것입니다.
온갖 이론적, 기술적, 경험적 정보를 바탕으로 고객을 유인한 투자 자문회사가
최종 계약서에 위 문구를 삽입하는 이유는 그렇게 현혹 혹은 사기를 쳤음에도
법률적으로 책임을 지지않기 위해서 입니다.
수정: 이미 자신들의 모든 정보를 동원해도 돈 버는 방법이 없다는 것을 알기 때문입니다.
오로지 당신의 새로운 판돈이 필요할 뿐인거죠.

주식에서 돈 버는 방법은 로또나 도박에서 돈 버는 것과 다르지 않습니다.
이미 발을 담근 사람은 당연히 뭔가 좋은 방법이 있으리라고 기대할 뿐입니다.
실제로 돈 버는 사람은 당구장 주인 뿐인데도 말이죠.
운 좋고 감 좋으면 가끔씩 돈을 벌기는 할 겁니다.
하지만 오래 버티고 싶으면 리스크 관리를 잘 해야 합니다.
결국 운수가 다하면 테러를 당하거나 IMF가 오거나 혜성이 충돌하는 등
예기치 못한 불행이 다가 올 테니까요.

일기예보나 주식투자에 수퍼컴퓨터를 동원하는데도
원숭이가 돈 벌 확률보다 적은 이유가 이론이 부족해서는 아닐겁니다.
인간의 뇌가 이상하게 진화해서 불규칙한 정보를 규칙적으로 보이도록
억지로 스스로에게 최면을 걸기 때문이지요.

불과 몇 주 전에 갑자기 나타나 지구를 스쳐 지나간 운석에 깜짝 놀란 인류입니다.
그 운석이 주식이나 날씨에 어떤 영향을 줬는지 계산해야 할까요?
===========================================================================
Shocky Han
BIM Consultant, Certified Information Systems Auditor
Seoul, Korea.
===========================================================================

===========================================================================
Shocky Han
BIM Consultant, Certified Information Systems Auditor
Seoul, Korea.
===========================================================================

jinhoy97의 이미지

참 많은 Programmer들이 다들 깜빡하는 게 있네요.

우리는 발명을 할 수 있는 엔지니어라는 것을요. 늘 회사일에 희망이 없다
그냥 쳇바퀴만 돈다, 남들이 대우를 안해준다 하는데.... 한번
생각을 해보죠, 우리가 혹시 그런 가치를 만들어 내지 못해서는 아닌가 싶네요.

코딩 기술자가 아닌 정말 '기획'을 하고 '발명'을 하는 마음가짐이 필요하진 않나
싶습니다. 에디슨이 과연 전기기술자나 화학물질 조작하는 숙련공에서 그쳤다면
오늘날 GE같은 큰 기업이 없었겠지요. (비록노동착취로 악명이 높았지만... )

제테크 방법도 중요하지만 정작 우리 스스로 '가치'를 만들어 내는 일을 통해
우리의 가치를 높이는 것이 더 현실적인 '제테크'가 아닐까 싶습니다.

요즘 특허 서류 쓰면서 보다 보니 이런 생각이 들어서 적어봤습니다. 아흑~
그래도 최고의 기본 제테크는 '통장'이더라고요.

chunsj의 이미지

아마 뭔가를 만들 수 있다는 것을 망각하기도 하지만 - 적어도 저는 - 다른 사람의 눈으로 내 인생을
보려고 해서 그럴지도 모른다는 생각이 듭니다.

가끔 인생은 내가 주인이다라는 것을 자꾸 놓치며 살아요. :-)

망치의 이미지

5등도 힘든 ..

---------------------------------------
http://www.waitfor.com/
http://www.textmud.com/

cinsk의 이미지

Emacs Lisp:

(require 'cl)
(require 'cookie1)
 
(defun lotto ()
  (interactive)
  (let ((vec 
         (vconcat (let ((lst nil))
                    (do ((i 1 (+ i 1)))
                        ((> i 45) lst)
                      (setq lst (cons i lst)))))))
    (message "Your choice: %S" (subseq (shuffle-vector vec) 0 6))))

--
C FAQ: http://www.eskimo.com/~scs/C-faq/top.html
Korean Ver: http://www.cinsk.org/cfaqs/

jellypo의 이미지

http://kldp.org/node/81933

예전에 올라왔던 내용입니다만
로또 특정 기간동안 나온 숫자 빈도를 분석(?)하는 스크립트입니다.

1회부터 최근까지 로또 당첨번호를 입력합니다. 회별로 오름차순입니다.
10 23 29 33 37 40 16
09 13 21 25 32 42 02
11 16 19 21 27 31 30
14 27 30 31 40 42 02
16 24 29 40 41 42 03
14 15 26 27 40 42 34
02 09 16 25 26 40 42
08 19 25 34 37 39 09
02 04 16 17 36 39 14
09 25 30 33 41 44 06
01 07 36 37 41 42 14
02 11 21 25 39 45 44
22 23 25 37 38 42 26
...

와 같이 로또 역대 번호를 입력한 파일을 준비하시고

sed -n '$1,$2' list.txt | tr ' ' '\n' | sort -n | uniq -c | sort -n

위 내용으로 deabak.sh 으로 저장.

./deabak.sh 300 360
이렇게 하면 300회부터 360회까지 나온 숫자의 빈도수를 보여줍니다. 앞 숫자가 나온 빈도, 두번째가 로또 숫자입니다.

./deabak.sh 1 10 의 결과가

      1 22
      1 28
      1 45
      2 10
      2 15
      2 24
      3 11
      3 12
      3 19
      3 34
      3 35
      3 38
      4 03
      4 05
      4 07
      4 08
      4 20
      4 23
      4 29
      4 32
      4 36
      4 41
      4 43
      5 01
      5 13
      5 14
      5 18
      5 21
      5 27
      5 33
      5 44
      6 09
      6 17
      6 26
      6 30
      6 31
      6 39
      7 02
      7 04
      7 06
      7 16
      8 42
      9 25
      9 37
      9 40

로군요.

각 사건이 연관이 없지만, 일단 최근 경향 분석을 할 수 있도록 구상해서 삽질하다가, alfalf 님이 너무나 간단한 해결 방법을 제시해주셔서 ...:^)

물론 이 스크립트를 이용해서 당첨된 적은 없습니다. ...로또 5000원 두 번인가 되고 한 번도 안되네요.

bookgekgom의 이미지

계속 고치다 보면 더욱더 완벽한 프로그램으로 거듭날수 있을겁니다.

그리고 저는 그걸 이용해서 당첨되는거죠.

와...완벽한 plan~

---------------------------------------------------------------------------------------------------------------
루비 온 레일즈로 만들고 있는 홈페이지 입니다.

http://jihwankim.co.nr

여러 프로그램 소스들이 있습니다.

필요하신분은 받아가세요.

jellypo의 이미지

앗 수정하는 동안 댓글이;

랜덤으로 예측번호 생성하는 프로그램이 많이 올라오는데요,
여태까지 중복된 당첨번호가 없었단 점에 착안하여 랜덤 생성된 '예측번호'가 '이전 당첨번호' 중에 있으면 재생성 하는 프로그램이면 좋겠네요.
302회까지 로또 당첨번호(여섯번째는 행운번호)가 입력된 파일을 첨부합니다.

댓글 첨부 파일: 
첨부파일 크기
Plain text icon lotto.txt6.21 KB
talpo의 이미지

초뉴비 버전입니다.

-module(lotto).
-export([f/0]).
 
f() -> f(6, []).
f(0,R) -> lists:sort(R);
f(N,R) -> g(N, random:uniform(45), R).
 
g(N, Z, R) ->
	C = lists:member(Z, R),
	if 
		C -> 
			f(N,R);
		true -> 
			f(N-1,[Z|R])
	end.
zeshai의 이미지

가게에서 자동......