リストの要素をn番飛ばし毎にグループに分ける
http://www.sampou.org/cgi-bin/haskell.cgi?blog:Everyday%3a2005-01-11&l=jp
取り残された気分だけど、最短記録部門(何?)で挑戦。
f n = foldr (\x y -> (x:last y):init y) (replicate n []) g n=foldr(\x y->(x:last y):init y)$[1..n]>>[[]]
それぞれ 56, 47 文字
追記(2005-01-12)
f を feedback.