たまたま目についたのでやってみた。 １０分でコーディング | プログラミングに自信があるやつこい！！ main = print $ cards 4 "123412341234123412" cards n str = [ [str!!m | m<-[0..len-1], m`mod`n == i] | i<-[0..n-1] ] where len = length str - le…