- プログラミングのお題スレ Part5
258 ：デフォルトの名無しさん[sage]：2014/10/09(木) 12:32:59.11 ID:kVQIysa/ - >>252 F#
let rec digits d n f = if d = 0 then "" else digits (d-1) (n/10) f + f (n % 10)
let soroban n =
let waku = "########\n"
let line p =
let s = digits 6 n <| fun d -> if p d then "o" else "|"
"#" + s + "#\n"
let line5 n = line <| fun d -> 0 < (d + n) % 5
waku +
line ((>) 5) + line ((<) 4) +
waku +
line5 0 + line5 4 + line5 3 + line5 2 + line5 1 +
waku
soroban 9563 |> printfn "%s" // ...
|
|