このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 166代目 #290 # [1] 授業単元:プログラミング # [2] 問題文(含コード&リンク): 100000 # 110000 # 111000 # 111100 # 111110 # 111111 # とこのように表示させるプログラム。 # '100000 110000 111000 111100 111110 111111 とこのように表示させるプログラム。' :- length(L,6), forall(先頭文字だけは1固定で行を1と0のならびで分離する(L),表示させる(L)). 先頭文字だけは1固定で行を1と0のならびで分離する(L) :- append(['1'|L1],L2,L), all(L1,'1'), all(L2,'0'). 表示させる(L) :- atomic_list_concat(L,A), writef('%t\n',[A]). all([],_). all([V|R],V) :- all(R,V).