DouKaku?beta

Comment detail

全ての組み合わせ (Nested Flatten) 
ずいぶんカバレッジ下がりました。
勝手にHaskellに対抗意識を燃やしています。
1
2
3
crossp([],[]).
crossp([X|Xs],[I|Is]):-member(I,X),crossp(Xs,Is).
:-findall(X,crossp([[1,2,3],[uno,due,tre],[un,doux,trois]],X),Xs),writeln(Xs).

Index

Feed

Other

Link

Pathtraq

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