@2bbbに
トキメキ, ノイズ, アイドル, ポカリを使った総ての組み合わせを返すHaskellプログラムを書きなさい
とかいわれても頑張る気力がないので、さっさとごめんなさいして、残念なコードを書きました。
noiseidol = [(w1,w2,w3,w4) | w1 <- ["tokimeki","noise","idol","pocurry"], w2 <- ["tokimeki","noise","idol","pocurry"], w2 /= w1, w3 <- ["tokimeki","noise","idol","pocurry"], w3 /= w1, w3 /= w2, w4 <- ["tokimeki","noise","idol","pocurry"], w4 /= w1, w4 /= w2, w4 /= w3 ]
(改行とってね。)
これはひどい＞＜…。
結果:
$cyi
Prelude> :l noiseidol.curry
noiseidol> noiseidol
[("tokimeki","noise","idol","pocurry"),("tokimeki","noise","pocurry","idol"),
("tokimeki","idol","noise","pocurry"),("tokimeki","idol","pocurry","noise"),
("tokimeki","pocurry","noise","idol"),("tokimeki","pocurry","idol","noise"),
("noise","tokimeki","idol","pocurry"),("noise","tokimeki","pocurry","idol"),
("noise","idol","tokimeki","pocurry"),("noise","idol","pocurry","tokimeki"),
("noise","pocurry","tokimeki","idol"),("noise","pocurry","idol","tokimeki"),
("idol","tokimeki","noise","pocurry"),("idol","tokimeki","pocurry","noise"),
("idol","noise","tokimeki","pocurry"),("idol","noise","pocurry","tokimeki"),
("idol","pocurry","tokimeki","noise"),("idol","pocurry","noise","tokimeki"),
("pocurry","tokimeki","noise","idol"),("pocurry","tokimeki","idol","noise"),
("pocurry","noise","tokimeki","idol"),("pocurry","noise","idol","tokimeki"),
("pocurry","idol","tokimeki","noise"),("pocurry","idol","noise","tokimeki")]
数かぞえたりもしてないんけど、間違ってたらいっておくれ。
おれはもう駄目だ。
