このディレクトリの索引

# 出典 :: C/C++言語の宿題片付けます 160代目 #412 # [1] 授業単元:C言語 for文 # [2] 問題文(含コード&リンク): # +#+#+#+#+* # +#+#+#+*-* # +#+#+*-*-* # +#+*-*-*-* # +*-*-*-*-*  # この模様を二重ループを使って作成せよ # '+#+#+#+#+* +#+#+#+*-* +#+#+*-*-* +#+*-*-*-* +*-*-*-*-*  この模様を作成する' :- forall(行模様を形成し(L), 行模様を表示する(L)). 行模様を形成し([D,C,B,A]) :- append(L1,L2,[A,B,C,D]), '*-と#+のパターンで埋める'(L1,L2). '*-と#+のパターンで埋める'(L1,L2) :- all(L1,'*-'), all(L2,'#+'). all([],_). all([A|R],A) :- all(R,A). 行模様を表示する(L) :- writef('+%w%w%w%w*\n',L).