torus711 のアレ

主に競技プログラミングの問題について書きます

Codeforces #213, Division 2, A : Good Number

概要

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