DouKaku?beta

Comment detail

九九の表示 (Nested Flatten)

Factor です。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
USING: kernel sequences math math.parser io ;

: out ( x y -- )
  over number>string write
  " * " write
  dup number>string write
  " = " write
  * number>string 2 CHAR: \s pad-left write nl ;

9 [ 1+ 9 [ dupd 1+ out ] each drop ] each

Index

Feed

Other

Link

Pathtraq

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