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

1
2
3

count n = takeWhile (<= n) (0:[x*n | n <- [10^n|n<-[0..]], x <- [1..9]])

main = mapM_ print $ count 300

module Main where

import Control.Arrow
import System.Environment

funcA = arr ((head >>> read >>> (>=) >>> takeWhile) &&& const lst)
          >>> arr (app >>> (:) 0)
          >>> Kleisli (mapM_ print)
  where lst = concat $ iterate (map (10*)) [1..9]

main = getArgs >>= runKleisli funcA

取り敢えずパッと思い付いたのを。

1 2	import Data.List main=readLn>>=print.(\n->fst$span(<=n)$nub$concat$iterate(map(*10))[0..9])

nubだと遅いので。。。

1	main=readLn>>=print.(0:).fst.flip span(concat$iterate(map(10*))[1..9]).(>=)

1	x=[1..9]++(map(10*)x);main=readLn>>=print.fst.(`span`(0:x)).(>=)

1	main=do n<-readLn;print$filter(all(<'1').tail.show)[0..n]

DouKaku?

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

Posted feedbacks - Haskell

Index

Feed

Other

Link

Pathtraq