gistfile1.hs

--http://ameblo.jp/programming/entry-10001721422.html

cardlist::String ->  Int ->  [String]
cardlist cardset member = lines(getcard cardset member 0) 

getcard::String ->  Int ->  Int ->  [Char]
getcard cardset member start = if start == member
                               then ""
                               else returncard cardset (start + 1) member ++ "\n" ++ getcard cardset member (start + 1)

returncard::String ->  Int ->  Int ->  [Char]
returncard cardset start baisu = if length(cardset) < baisu
                               then ""
                               else take 1 (drop (start - 1) cardset) ++ returncard (drop baisu cardset) start baisu


main :: IO()
main = do
     print (cardlist "1231234" 3)
     print (cardlist "012345012345012345" 6)