aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Time for an 2014 update…

Browse source
This commit is contained in:
Ingy döt Net 2014-01-17 05:32:22 +00:00
parent 372c577f83
commit 09687c4926
2520 changed files with 34227 additions and 7318 deletions
Download patch file Download diff file Expand all files Collapse all files

26
Task/Twelve-statements/Haskell/twelve-statements.hs
View file

@ -5,20 +5,20 @@ tf = mapM (\_ -> [1,0])
wrongness b = findIndices id . zipWith (/=) b . map (fromEnum . ($ b))
statements = [ (==12) . length,
3 ? [length statements-6..],
2 ? [1,3..],
4 ? [4..6],
0 ? [1..3],
4 ? [0,2..],
1 ? [1,2],
6 ? [4..6],
3 ? [0..5],
2 ? [10,11],
1 ? [6,7,8],
4 ? [0..10]
3 ⊂ [length statements-6..],
2 ⊂ [1,3..],
4 → [4..6],
0 ⊂ [1..3],
4 ⊂ [0,2..],
1 ⊂ [1,2],
6 → [4..6],
3 ⊂ [0..5],
2 ⊂ [10,11],
1 ⊂ [6,7,8],
4 ⊂ [0..10]
] where
(s ? x) b = s == (sum . map (b!!) . takeWhile (< length b)) x
(a ? x) b = (b!!a == 0) || all ((==1).(b!!)) x
(s ⊂ x) b = s == (sum . map (b!!) . takeWhile (< length b)) x
(a → x) b = (b!!a == 0) || all ((==1).(b!!)) x
testall s n = [(b, w) | b <- tf s, w <- [wrongness b s], length w == n]