結果

問題 No.716 距離
コンテスト
ユーザー _Clay____
提出日時 2018-09-18 20:52:41
言語 Scheme
(Gauche-0.9.15)
コンパイル:
true
実行:
gosh _filename_
結果
AC  
実行時間 1,118 ms / 2,000 ms
コード長 709 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 70 ms
コンパイル使用メモリ 7,844 KB
実行使用メモリ 48,768 KB
最終ジャッジ日時 2026-04-02 00:00:04
合計ジャッジ時間 18,836 ms
ジャッジサーバーID
（参考情報） 		judge1_1 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 40
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

(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