結果

問題 No.716 距離
ユーザー _Clay____
提出日時 2018-09-18 20:52:41
言語 Scheme
(Gauche-0.9.15)
結果
AC  
実行時間 1,095 ms / 2,000 ms
コード長 709 bytes
コンパイル時間 21 ms
コンパイル使用メモリ 5,120 KB
実行使用メモリ 27,904 KB
最終ジャッジ日時 2024-07-18 08:05:01
合計ジャッジ時間 18,483 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff # 

(use gauche.collection)
(use srfi-8)
(letrec* ((a (string->number (read-line)))
          (n (map string->number (string-split (read-line) " ")))
          (d (lambda (n a)
                (letrec ((d1 (lambda (n1 n)
                                     (if (= (length n) 1) (list (- (car n) n1))
                                                   (cons (- (car n) n1) (d1 n1 (cdr n)))))))
                        (if (= (length n) 1) a
                                            (d (cdr n) (append! a (d1 (car n) (cdr n))))))))
          (r (d n '())))
         (receive (min max) (find-min&max r)
                        (begin
                          (print min)
                          (print max))))
0