結果

問題 No.32 貯金箱の憂鬱
ユーザー MiyamonY
提出日時 2019-09-03 15:56:15
言語 Scheme
(Gauche-0.9.15)
結果
WA  
実行時間 -
コード長 740 bytes
コンパイル時間 88 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 16,512 KB
最終ジャッジ日時 2024-12-24 04:44:31
合計ジャッジ時間 7,993 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other WA * 10 RE * 2
権限があれば一括ダウンロードができます

ソースコード

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