結果

問題 No.1644 Eight Digits
ユーザー tatt61880tatt61880
提出日時 2021-08-13 23:42:07
言語 Kuin
(KuinC++ v.2021.9.17)
結果
AC  
実行時間 10 ms / 1,000 ms
コード長 808 bytes
コンパイル時間 6,416 ms
コンパイル使用メモリ 146,176 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-10-04 00:00:51
合計ジャッジ時間 4,977 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 25
権限があれば一括ダウンロードができます

ソースコード

diff # 

func main()
	var k: int :: cui@inputInt()
	var array: []char :: "12345678"
	var ans: int :: 0
	while(@permutationNext(array), skip)
		do ans :+ array.toInt(&) % k = 0 ?(1, 0)
	end while
	
	do cui@print("\{ans}\n")
end func

func permutationNext(array: []char): bool
	var left: int :: ^array - 2
	while(left >= 0 & array[left] >= array[left + 1])
		do left :- 1
	end while
	if(left < 0)
		do array.reverse()
		ret false
	end if
	var right: int :: ^array - 1
	while(array[left] >= array[right])
		do right :- 1
	end while
	var tmp: char :: array[left]
	do array[left] :: array[right]
	do array[right] :: tmp
	do left :+ 1
	do right :: ^array - 1
	while(left < right)
		do tmp :: array[left]
		do array[left] :: array[right]
		do array[right] :: tmp
		do left :+ 1
		do right :- 1
	end while
	ret true
end func
0