AtCoder Grand Contest 014

Submission #1268602

Source codeソースコード

(defun f (a b c n)
  (if (or (oddp a)
	  (oddp b)
	  (oddp c))
      n
      (f (ash (+ b c) -1)
	 (ash (+ a c) -1)
	 (ash (+ a b) -1)
	 (+ n 1))))
 
(defun ff (a b c)
  (if (and (= a b) (= b c))
      (if (evenp a)
	  -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ソースコード長 355 Byte
File nameファイル名
Exec time実行時間 22 ms
Memory usageメモリ使用量 4448 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 22 ms 4448 KB
in10.txt AC 19 ms 4328 KB
in11.txt AC 18 ms 4324 KB
in2.txt AC 19 ms 4320 KB
in3.txt AC 18 ms 4324 KB
in4.txt AC 18 ms 4324 KB
in5.txt AC 18 ms 4328 KB
in6.txt AC 19 ms 4320 KB
in7.txt AC 18 ms 4328 KB
in8.txt AC 18 ms 4324 KB
in9.txt AC 19 ms 4324 KB
sample1.txt AC 19 ms 4324 KB
sample2.txt AC 19 ms 4324 KB
sample3.txt AC 19 ms 4320 KB