結果

問題 No.730 アルファベットパネル
ユーザー tatt61880
提出日時 2019-03-19 22:59:14
言語 Kuin(beta)
(2019_03_17 on Wine)
結果
AC   .
実行時間 454 ms
コード長 207 Byte
コンパイル時間 776 ms
使用メモリ 47,776 KB
最終ジャッジ日時 2019-05-15 21:00:25

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
sample1.txt AC 424 ms
47,764 KB
sample2.txt AC 432 ms
47,768 KB
test1.txt AC 444 ms
47,764 KB
test2.txt AC 434 ms
47,772 KB
test3.txt AC 454 ms
47,776 KB
test4.txt AC 445 ms
47,756 KB
test5.txt AC 437 ms
47,768 KB
test6.txt AC 442 ms
47,748 KB
test7.txt AC 445 ms
47,764 KB
test8.txt AC 443 ms
47,772 KB
テストケース一括ダウンロード

ソースコード

diff #
func main()
	var S: []char :: cui@input()
	var a: []int :: #[26]int
	for i(0, ^S - 1)
		do a[S[i] $ int - 'A' $ int] :+ 1
	end for
	var ans: bool :: a.max() < 2
	do cui@print(ans ?("YES\n", "NO\n"))
end func
0