DouKaku?beta

Comment detail

ピラミッドを作る (Nested Flatten)
F#のタグをつけつつF#関係ない。 
1
2
3
4
5
6
7
8
9
open System;;
open String;;
open List;;

let pyramid n =
    let mkLine mxLn ln =
        (make (mxLn-ln) ' ') ^ (make (2*ln-1) '*') ^ (make (mxLn-ln) ' ') in
    String.concat "\n" (map (mkLine n) (init n (fun x -> x+1)));;
Printf.printf "%s\n" (pyramid 4)

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]