LL Golf Hole 5 - 最上位の桁を数え上げる in PHP DouKaku?

与えられた自然数までの数え上げを行います。ただし、繰り上がりが起こったときは最上位の桁のみを数え上げます。また、与えられる自然数には0以外の桁が2回以上登場してはいけません。たとえば、300を入力として与えられた場合は以下のような出力となります。

与える自然数についてはリテラルで与える、標準入力で与える、引数で与えるなどは自由とします。

※LL Future実行委員の高野光弘です。この出題は LL Future公式の出題であり、優れたものについてはLL Golfのセッションでご紹介させていただくかもしれません。ご理解の上、ご投稿ください。また、LL Futureのチケットは現在も発売中です。よろしければ、メインイベントの方にもぜひご参加ください。

#!/usr/bin/env ruby
def f(n, m = 0)
    puts m    
    n == m ? return : f(n, m + 10 ** (m.to_s.size - 1) )
end
f(300)

80byte

1 2	<?$m=fgets(STDIN);for($a=0;$a<=$m;eval('$a+=1e'.(strlen($a)-1).';'))echo$a,' ';

素直に書いた方が短いんですけどね。71byte

1 2	<?$m=fgets(STDIN);for($a=0;$a<=$m;$a+=pow(10,strlen($a)-print$a.' '));

"の方が微妙に短いようですね。

1	<?for($a=0;$a<=$argv[1];$a+=pow(10,strlen($a)-print"$a "));

powを使った方が短いようですが一応載せてみます。

1	<?for($a=0;$a<=$argv[1];)ereg('^.0*$',$a++,$m)&&print"$m[0] ";

DouKaku?

LL Golf Hole 5 - 最上位の桁を数え上げる

Posted feedbacks - PHP

Index

Feed

Other

Link

Pathtraq