2015-06-19から1日間の記事一覧
$ cat p5.hs import Debug.Trace output lst _ _ [] = lst output lst _ [] _ = lst output lst n (x:xs) (y:ys) | n==x = output (lst++[y]) (n+1) (xs) ys | otherwise = output lst (n+1) (x:xs) ys filt100 lst n [] = lst filt100 lst n (x:xs) | x==10…