w*s
发帖数: 7227 | 1 1本书的页数，共用了732个数字，请问本书多少页？（从第一页开始算） |
n********r
发帖数: 4558 | 2 280 ?
【在 w*s 的大作中提到】
: 1本书的页数，共用了732个数字，请问本书多少页？（从第一页开始算）
|
w*s
发帖数: 7227 | 3 答案多少不管，主要是怎样最快最简单地做出来
【在 n********r 的大作中提到】
: 280 ?
|
n********r
发帖数: 4558 | 4 有什么巧妙算法？
【在 w*s 的大作中提到】
: 答案多少不管，主要是怎样最快最简单地做出来
|
h******v
发帖数: 1826 | 5 试一下：
single-digit numbers有9个；
double-digit numbers有从10到99共90个，占了90x2个数字(digit)。
所以，剩下的都应该就是3-digit number了。有多少个呢？
(732 - 90x2 - 9)/3
=181
3-digit numbers 是从100开始数的，所以最后一个数是280。
做对了有包子？ ;-)
【在 w*s 的大作中提到】
: 1本书的页数，共用了732个数字，请问本书多少页？（从第一页开始算）
|
w*s
发帖数: 7227 | 6 赞，比我强。
【在 h******v 的大作中提到】
: 试一下：
: single-digit numbers有9个；
: double-digit numbers有从10到99共90个，占了90x2个数字(digit)。
: 所以，剩下的都应该就是3-digit number了。有多少个呢？
: (732 - 90x2 - 9)/3
: =181
: 3-digit numbers 是从100开始数的，所以最后一个数是280。
: 做对了有包子？ ;-)
|
h***0
发帖数: 3032 | |
s**********u
发帖数: 11996 | 8 我也晕了。
【在 h***0 的大作中提到】
: 我连题目都不会看 晕
|
B*****s
发帖数: 3463 | 9 跟你一比， 俺就是一弱智啊
#!/usr/bin/perl
$total=0;
for ($i=1; ;$i++) {
$total += length("$i");
die("Total page: $i") if ($total == 732);
}
Total page: 280 at ./test.pl line 6.
【在 h******v 的大作中提到】
: 试一下：
: single-digit numbers有9个；
: double-digit numbers有从10到99共90个，占了90x2个数字(digit)。
: 所以，剩下的都应该就是3-digit number了。有多少个呢？
: (732 - 90x2 - 9)/3
: =181
: 3-digit numbers 是从100开始数的，所以最后一个数是280。
: 做对了有包子？ ;-)
|
w*s
发帖数: 7227 | 10 赞，就认识一个die
【在 B*****s 的大作中提到】
: 跟你一比， 俺就是一弱智啊
: #!/usr/bin/perl
: $total=0;
: for ($i=1; ;$i++) {
: $total += length("$i");
: die("Total page: $i") if ($total == 732);
: }
: Total page: 280 at ./test.pl line 6.
|
|
|
s**********u
发帖数: 11996 | 11 人才啊。
【在 h******v 的大作中提到】
: 试一下：
: single-digit numbers有9个；
: double-digit numbers有从10到99共90个，占了90x2个数字(digit)。
: 所以，剩下的都应该就是3-digit number了。有多少个呢？
: (732 - 90x2 - 9)/3
: =181
: 3-digit numbers 是从100开始数的，所以最后一个数是280。
: 做对了有包子？ ;-)
|
h******v
发帖数: 1826 | 12 楼主的孩子要笑话你了 :-))
【在 B*****s 的大作中提到】
: 跟你一比， 俺就是一弱智啊
: #!/usr/bin/perl
: $total=0;
: for ($i=1; ;$i++) {
: $total += length("$i");
: die("Total page: $i") if ($total == 732);
: }
: Total page: 280 at ./test.pl line 6.
|
h******v
发帖数: 1826 | 13 为什么没有人给人才发包子呢
【在 s**********u 的大作中提到】
: 人才啊。
|
w*s
发帖数: 7227 | 14 好，我们没文化的最尊重有学问的，我马上就发一个。
【在 h******v 的大作中提到】
: 为什么没有人给人才发包子呢
|
h******v
发帖数: 1826 | 15 很慷慨，谢谢 :-)
【在 w*s 的大作中提到】
: 好，我们没文化的最尊重有学问的，我马上就发一个。
|
m*****g
发帖数: 691 | 16 高IQ很多啊!
看给多大小孩做吧?有没有急转弯的情形? |
a*o
发帖数: 19981 | 17 禽兽啊！作弊！
【在 B*****s 的大作中提到】
: 跟你一比， 俺就是一弱智啊
: #!/usr/bin/perl
: $total=0;
: for ($i=1; ;$i++) {
: $total += length("$i");
: die("Total page: $i") if ($total == 732);
: }
: Total page: 280 at ./test.pl line 6.
|
a*****y
发帖数: 613 | |
B*****s
发帖数: 3463 | 19 汗啊,刚才居然算错了, 给个通用解, 这是几年级的功课啊, 太难了!
#!/usr/bin/perl
$total=$ARGV[0];
for ($i=1,$c=1; $total>$i*9*$c ; $i*=10,$c++) {
$total-=($i*9*$c);
}
die("no solution\n") if ($total % $c !=0);
die("Total #Pages: ", $total/$c+$i-1, "\n");
------------------------------------------------------------------
[root@localhost trash]$ ./test2.pl 9
Total #Pages: 9
[root@localhost trash]$ ./test2.pl 1
Total #Pages: 1
[root@localhost trash]$ ./test2.pl 0
Total #Pages: 0
[root@localhost trash]$ ./test2.pl 12
no solution!
[root@localhost trash]$ ./test2.pl 13
Total #Pages: 11
[root@localhost trash]$ ./test2.pl 732
Total #Pages: 280
[root@localhost trash]$ ./test2.pl 9001
Total #Pages: 2527
[root@localhost trash]$ ./test2.pl 90014
Total #Pages: 20224
【在 a*o 的大作中提到】
: 禽兽啊！作弊！
|
h******v
发帖数: 1826 | 20 呀！佩服你！
请看一下这个题，看看计算机能找出来的是什么规律：
Find the pattern
1
11
21
1211
111221
312211
13112221
1113213211
What’s the next number?
【在 B*****s 的大作中提到】
: 汗啊,刚才居然算错了, 给个通用解, 这是几年级的功课啊, 太难了!
: #!/usr/bin/perl
: $total=$ARGV[0];
: for ($i=1,$c=1; $total>$i*9*$c ; $i*=10,$c++) {
: $total-=($i*9*$c);
: }
: die("no solution\n") if ($total % $c !=0);
: die("Total #Pages: ", $total/$c+$i-1, "\n");
: ------------------------------------------------------------------
: [root@localhost trash]$ ./test2.pl 9
|
|
|
B*****s
发帖数: 3463 | 21 装枪口上了，
1113213211
31131211131221
这个我看过， 继续。。。。。 |
h******v
发帖数: 1826 | 22 LOL...就是看到了那个解法，觉得出题的太变态了，解题的人太聪敏了。
【在 B*****s 的大作中提到】
: 装枪口上了，
: 1113213211
: 31131211131221
: 这个我看过， 继续。。。。。
|
w*s
发帖数: 7227 | 23 这是反过来先有答案再出题。
【在 h******v 的大作中提到】
: LOL...就是看到了那个解法，觉得出题的太变态了，解题的人太聪敏了。
|
B*****s
发帖数: 3463 | 24 觉得出题的太变态了，解题的人太聪敏了。
都不, 这个就是算一个字符串,相同连续字符的个数. (会不会出现4呢? LOL)
没事看那个小朋友不顺眼,就给让他们算到第15好了
[root@localhost trash]$ ./test3.pl
Seq#1 1
Seq#2 11
Seq#3 21
Seq#4 1211
Seq#5 111221
Seq#6 312211
Seq#7 13112221
Seq#8 1113213211
Seq#9 31131211131221
Seq#10 13211311123113112211
Seq#11 11131221133112132113212221
Seq#12 3113112221232112111312211312113211
Seq#13 1321132132111213122112311311222113111221131221
Seq#14 11131221131211131231121113112221121321132132211331222113112211
Seq#15
3113112221131112311311121321123113213221121113122113121113222123113221132122
21
没事看那个孩子不顺眼就让他算去好了:)
----------------------------------------------------------------------------
---
#!/usr/bin/perl
$src="1";
for ($i=1;$i<=15 ;$i++) {
print "Seq#",$i,"\t $src\n";
$dst="";
@array = split(//,$src);
$pre = $array[0];
$c=$j=1;
while ($j<=$#array) {
$cur = $array[$j];
if ($pre != $cur) {
$dst="$dst$c$pre";
$pre=$cur;
$c=1;
} else {
$c++;
}
$j++;
}
$src="$dst$c$pre";
}
【在 h******v 的大作中提到】
: LOL...就是看到了那个解法，觉得出题的太变态了，解题的人太聪敏了。
|
w*s
发帖数: 7227 | 25 大牛真厉害，写的英文我全看不懂，只认得一个trash。
【在 B*****s 的大作中提到】
: 觉得出题的太变态了，解题的人太聪敏了。
: 都不, 这个就是算一个字符串,相同连续字符的个数. (会不会出现4呢? LOL)
: 没事看那个小朋友不顺眼,就给让他们算到第15好了
: [root@localhost trash]$ ./test3.pl
: Seq#1 1
: Seq#2 11
: Seq#3 21
: Seq#4 1211
: Seq#5 111221
: Seq#6 312211
|
B*****s
发帖数: 3463 | 26 嘲笑我, 大牛才没空写这个玩, 我也就是好奇会不会出现4 你给证明一下?
【在 w*s 的大作中提到】
: 大牛真厉害，写的英文我全看不懂，只认得一个trash。
|
w*s
发帖数: 7227 | 27 不知道，总是11->2, 21->3, 没机会22吧？要洗碗去了，老板娘说她不识字一样赚大钱。
【在 B*****s 的大作中提到】
: 嘲笑我, 大牛才没空写这个玩, 我也就是好奇会不会出现4 你给证明一下?
|
B*****s
发帖数: 3463 | 28 果然是大牛,老板娘的红人,这么晚还有碗洗
俺洗洗睡了, 上海的盘子都归你了
钱。
【在 w*s 的大作中提到】
: 不知道，总是11->2, 21->3, 没机会22吧？要洗碗去了，老板娘说她不识字一样赚大钱。
|
w*s
发帖数: 7227 | 29 41 <- 1111 <- 11, but 11 -> 21
42 <- 2222 <- 2222 <- 2222 <- ...
43 <- 3333 <- 333333 <- ...
is this correct ?
【在 B*****s 的大作中提到】
: 嘲笑我, 大牛才没空写这个玩, 我也就是好奇会不会出现4 你给证明一下?
|
z*****1
发帖数: 299 | |
