概要
N 個の整数が与えられる。
k 以下の数字を全て含むものの数を求めよ。
解法
文字列として扱って数えると解けます。
コード
main = do [ n, k ] <- map read . words <$> getLine as <- replicateM n getLine let solve s = all ( ( `elem` s ) . intToDigit ) [ 0 .. k ] print . length . filter solve $ as
N 個の整数が与えられる。
k 以下の数字を全て含むものの数を求めよ。
文字列として扱って数えると解けます。
main = do [ n, k ] <- map read . words <$> getLine as <- replicateM n getLine let solve s = all ( ( `elem` s ) . intToDigit ) [ 0 .. k ] print . length . filter solve $ as