DouKaku?beta

Comment detail

ピラミッドを作る (Nested Flatten)
repeat使って. 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
py(N):-
    repeat,
        between(1,N,I),
        I0 is N - I,
        I1 is I * 2 - 1,
        ntimes(I0,' '),ntimes(I1,*),ntimes(I0,' '),nl,
        N =< I.

ntimes(N,P):-
    repeat,
        between(1,N,I),
        write(P),
        N =< I.

:-py(2).

Index

Feed

Other

Link

Pathtraq

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