$ cat life.pl
#!/usr/bin/perl
use warnings;
use strict;
my @numbers = (11, 13, 16, 21);
my $range = 30;
my $minimum = 10;
my $num = 0;
for (my $i =0; $i <4; $i++) {
while ($numbers[$i] ne $num) {
print ".";
$num = int(rand($range)) + $minimum;
}
print " $num ";
}
## OK, what is the very next one?
print ". ", int(rand($range)) + $minimum, " \n";
(...)
SUGGESTION: apparently the differences of order 2 in the
difference table of depth 2 have become constant.
If this is true then the next four terms of the sequence are:
[55, 119, 295, 775]
(...)
RATE found the following formula for the nth term:
Warning: as with all these guessing programs, this is only a suggestion!
(-67 + n)/(-7 + n)
(...)
(4) 기타
(4) 기타
증가한 값이 2 3 5 이므로 다음수는 8증가 해서
29!!!!!
2+3 =5 2+3+5 = 10 2+3+5+10 =
2+3 =5
2+3+5 = 10
2+3+5+10 = 20
뭐 이렇게 되겠군요...
그렇지만 2, 3, 5 다음에 오는 소수는 7이므로 정답은 28!!
http://lordmiss.com
DDD, BMDRC
저도 똑같은 생각을 했습니다.
--
B/o/o/k/w/o/r/m/
--
Minimalist Programmer
저 역시 동일한
저 역시 동일한 생각을!!!
그냥 a[n] = a[n-1] +
그냥 a[n] = a[n-1] + a[n-2] + a[n-3], a[1] = 2, a[2] = 3, a[3] = 5로 정의되는 재귀 수열 아닐까요? 31 다음 숫자는 3+5+10=18 증가한 49일 듯.
2,3,5 순으로 증가
2,3,5 순으로 증가 하길래 소수로 증가하는 거라 생각하고
다음은 7 그래서 28 이라고 생각했는데 보기에 없네요...
28 같네요. 차이가 2,3,5 증가하는걸 보니 소수가 생각나요.
차이가 2,3,5 증가하는걸 보니 소수가 생각나요.
제가 생각한 31은 a[n]
제가 생각한 31은 a[n] = (n-67)/(n-7)입니다만 lifthrasiir님의 접근이야말로 정말 멋지군요.
Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.
29가 아닐까요?
차이가 2,3,5,8,13,... 이렇게 난다면 (Fibonacci 수열)
다음 수는 21+8 = 29
No Pain, No Gain.
No Pain, No Gain.
nick에서부터
nick에서부터 사고방식이 유추되는군요.
9, 10, 11, 13, 16, 21, ...이라면 그게 완벽하겠습니다. :)
Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.
뻘 글?
음... 인생 뭐 있어, 개념 정리하면... 복불복!!!
$ cat life.pl #!/usr/bin/perl use warnings; use strict; my @numbers = (11, 13, 16, 21); my $range = 30; my $minimum = 10; my $num = 0; for (my $i =0; $i <4; $i++) { while ($numbers[$i] ne $num) { print "."; $num = int(rand($range)) + $minimum; } print " $num "; } ## OK, what is the very next one? print ". ", int(rand($range)) + $minimum, " \n";$ perl life.pl
.......... 11 .......................... 13 ......................... 16 ..................... 21 . 23
$ perl life.pl
....................................................................... 11 ..................................................................................................................... 13 .......................................................................... 16 .... 21 . 35
----
I paint objects as I think them, not as I see them.
atie's minipage
----
I paint objects as I think them, not as I see them.
atie's minipage
Perl과 random이라니
Perl과 random이라니 존경스럽군요. (이러다 유전적 해법도 나오겠어요;;)
Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.
갑자기 생각나서
갑자기 생각나서 OEIS의 Superseeker에다가 쿼리를 던져 봤습니다.
(...) SUGGESTION: apparently the differences of order 2 in the difference table of depth 2 have become constant. If this is true then the next four terms of the sequence are: [55, 119, 295, 775] (...) RATE found the following formula for the nth term: Warning: as with all these guessing programs, this is only a suggestion! (-67 + n)/(-7 + n) (...)...역시 쓸만하군요. 다만 RATE가 찾아낸 수식은 n=7일 때 망한다는 거...
온라인정수열 사전
거기 넣어 보겠습니다.
굉장히 많은 답이 있군요
http://www.research.att.com/~njas/sequences/?q=11%2C+13%2C+16%2C+21&sort=0&fmt=0&language=english
22도 있군요
lifthrasiir님처럼
lifthrasiir님처럼 Superseeker에 넣으셔야지 수열 검색이 뭡니까.
그리고 답글 좀 나눠서 달지 마세요.
Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.
11,13,16,21,31에 대한
11,13,16,21,31에 대한 결과는 없기 때문에 Superseeker를 쓴 것입니다. -_- 그리고 앞의 네 항만으로 검색해 보아도 사실 수열의 중간에 나오는 것들이 대부분이지 맨 앞에 나오는 건 없죠.