結果

問題 No.32 貯金箱の憂鬱
ユーザー MiyamonYMiyamonY
提出日時 2019-09-03 15:56:15
言語 Scheme
(Gauche-0.9.14)
結果
WA  
実行時間 -
コード長 740 bytes
コンパイル時間 44 ms
コンパイル使用メモリ 5,376 KB
実行使用メモリ 16,512 KB
最終ジャッジ日時 2024-06-06 12:56:12
合計ジャッジ時間 7,516 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 RE -
testcase_09 RE -
testcase_10 WA -
testcase_11 WA -
権限があれば一括ダウンロードができます

ソースコード

diff # 

(define (read-number)
  (string->number (read-line)))


(let* ((l (read-number))
       (m (read-number))
       (n (read-number))
       (total (+ n (* m 25) (* l 100))))

  (define pat '())
  (let loop-n1 ((n1 0))
    (cond ((< n1 50)
	   (let loop-n25 ((n25 0))
	     (cond ((< n25 50)
		    (let loop-n100 ((n100 0))
		      (cond ((< n100 50)
			     (let loop-n1000 ((n1000 0))
			       (cond ((< n1000 50)
				      (cond ((= total (+ n1 (* n25 25) (* n100 100) (* n1000 1000)))
					     (format #t "~a ~a ~a ~a \n" n1 n25 n100 n1000)
					     (push! pat (+ n1 n25 n100))))
				      (loop-n1000 (+ n1000 1)))))
			     (loop-n100 (+ n100 1)))))
		    (loop-n25 (+ n25 1)))))
	   (loop-n1 (+ n1 1)))))

  (print (apply min pat)))
0