面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

596:１３２人目の素数さん
18/12/04 01:08:47.08 zMVauxBb.net
>>558のFuzzy versionのsolver
testimonies = [
(==1).length.(filter (==False)),
(==2).length.(filter (==False)),
(==3).length.(filter (==False)),
(==4).length.(filter (==False)),
(==5).length.(filter (==False)),
(==5).length.(filter (==False)),
(==5).length.(filter (==False)),
(==5).length.(filter (==False)),
(==9).length.(filter (==False)),
(==9).length.(filter (==False)),
(==9).length.(filter (==False))
]
isCompatible ts theCase = all (==True) $ zipWith (||) (map not theCase) (map (¥x -> x theCase) ts)
cases = (!! (length testimonies)) $ iterate (¥x-> [a:b|a<-[True,False],b<-x]) [[]]
main = mapM_ print [theCase | theCase<-cases, isCompatible testimonies theCase]
*Main> main
[False,False,False,False,False,False,False,False,True,True,False]
[False,False,False,False,False,False,False,False,True,False,True]
[False,False,False,False,False,False,False,False,False,True,True]
[False,False,False,False,False,False,False,False,False,False,False]

次ページ

続きを表示

1を表示