AtCoder Grand Contest 014

Submission #1268265

Source codeソースコード

(defun f (a b c n)
  (if (or (= (mod a 2) 1)
	  (= (mod b 2) 1)
	  (= (mod c 2) 1))
      n
      (f (/ (+ b c) 2)
	 (/ (+ a c) 2)
	 (/ (+ a b) 2)
	 (+ n 1))))

(defun ff (a b c)
  (if (and (= a b) (= b c))
      (if (= (mod a 2) 0)
	  -1
	  0)
      (f a b c 0)))

(let ((a (read))
      (b (read))
      (c (read)))
  (format t "~a~%" (ff a b c)))

Submission

Task問題 A - Cookie Exchanges
User nameユーザ名 noorbeh
Created time投稿日時
Language言語 Common Lisp (SBCL 1.1.14)
Status状態 AC
Score得点 300
Source lengthソースコード長 369 Byte
File nameファイル名
Exec time実行時間 133 ms
Memory usageメモリ使用量 15972 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - sample1.txt,sample2.txt,sample3.txt
All 300 / 300 sample1.txt,sample2.txt,sample3.txt,in1.txt,in10.txt,in11.txt,in2.txt,in3.txt,in4.txt,in5.txt,in6.txt,in7.txt,in8.txt,in9.txt,sample1.txt,sample2.txt,sample3.txt

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
in1.txt AC 133 ms 15972 KB
in10.txt AC 22 ms 6500 KB
in11.txt AC 21 ms 6500 KB
in2.txt AC 21 ms 6500 KB
in3.txt AC 21 ms 6496 KB
in4.txt AC 21 ms 6504 KB
in5.txt AC 22 ms 6500 KB
in6.txt AC 21 ms 6504 KB
in7.txt AC 21 ms 6496 KB
in8.txt AC 21 ms 6496 KB
in9.txt AC 22 ms 6500 KB
sample1.txt AC 21 ms 6500 KB
sample2.txt AC 21 ms 6500 KB
sample3.txt AC 21 ms 6500 KB