結果

問題 No.769 UNOシミュレータ
ユーザー tatt61880
提出日時 2020-04-27 19:08:51
言語 Kuin
(KuinC++ v.2021.9.17)
結果
AC  
実行時間 87 ms / 2,000 ms
コード長 1,336 bytes
コンパイル時間 2,206 ms
コンパイル使用メモリ 144,664 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-16 11:00:49
合計ジャッジ時間 3,992 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 23
権限があれば一括ダウンロードができます

ソースコード

diff # 

func main()
	var n: int :: cui@inputInt()
	var m: int :: cui@inputInt()
	var nums: []int :: #[n]int
	var reverseFlag: bool :: false
	var skipFlag: bool :: false
	var id: int :: 0
	var prev: []char
	var add: int :: 0
	for i(1, m)
		var s: []char :: cui@inputStr()
		switch(s)
		case "number"
			if(skipFlag)
				do skipFlag :: false
				do nums[id] :- add
				do add :: 0
				do next(&id, reverseFlag, n)
			end if
			do nums[id] :+ 1
		case "drawtwo", "drawfour"
			if(skipFlag & prev <> s)
				do skipFlag :: false
				do nums[id] :- add
				do add :: 0
				do next(&id, reverseFlag, n)
			end if
			do add :+ s = "drawtwo" ?(2, 4)
			do skipFlag :: true
			do nums[id] :+ 1
		case "skip"
			if(skipFlag)
				do skipFlag :: false
				do nums[id] :- add
				do add :: 0
				do next(&id, reverseFlag, n)
			end if
			do nums[id] :+ 1
			if(i <> m)
				do next(&id, reverseFlag, n)
			end if
		case "reverse"
			if(skipFlag)
				do skipFlag :: false
				do nums[id] :- add
				do add :: 0
				do next(&id, reverseFlag, n)
			end if
			do reverseFlag :: !reverseFlag
			do nums[id] :+ 1
		end switch
		do prev :: s
		
		if(i <> m)
			do next(&id, reverseFlag, n)
		end if
	end for
	do cui@print("\{id + 1} \{nums[id]}\n")
	
	func next(id: &int, reverseFlag: bool, n: int)
		do id :+ reverseFlag ?(n - 1, 1)
		do id :% n
	end func
end func
0