FOP/ex8.5 - 大久保弘崇

ex8.16

riffle :: [a]->[a]
riffle = halveList ->- zipper where
  zipper (a:as,b:bs) = a:b:zipper (as,bs)
  zipper ([],[]) = []
 

ex8.17

unriffle :: [a]->[a]
unriffle = unzipper ->- append where
  unzipper (l:r:inps) = let (ls,rs) = unzipper inps in (l:ls,r:rs)
  unzipper [] = ([],[])
 

ex8.18

その設問はこの辺の話題に何か影響しますかね？

ex8.19

考え中

ex8.20

考え中

コメント