LL Golf Hole 5 - 最上位の桁を数え上げる in Scala 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)

　余り短く出来ませんでしたが...。

object M{
    def c(d:Int,f:Int,m:Int):Unit=if(d*f<=m){printf("%d\n",d*f);c(d%9+1,f*(1+9*(d/9)),m)}
    def main(a:Array[String])=c(0,1,Integer.parseInt(a(0)))
}

効率は無視、再帰呼出でループを表現してみました。
例のごとくひねりはありません。
表示すべき数字は文字列で生成してたりして、かなり卑怯な気がします(^^;。
scala h5.scala で実行します。

val n=args(0).toInt
def p(i:Int,c:Int){
  val v=(""+i+("0"*c)).toInt;if(v<=n){println(v);if(i<9)p(i+1,c)else p(1,c+1)}
}
p(0,0)

DouKaku?

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

Posted feedbacks - Scala

Index

Feed

Other

Link

Pathtraq