結果

問題 No.1475 時計の歯車Easy
ユーザー ducktail
提出日時 2024-01-07 22:50:19
言語 Scheme
(Gauche-0.9.15)
結果
AC  
実行時間 35 ms / 2,000 ms
コード長 527 bytes
コンパイル時間 105 ms
コンパイル使用メモリ 6,944 KB
実行使用メモリ 17,536 KB
最終ジャッジ日時 2024-09-27 19:32:49
合計ジャッジ時間 3,011 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 42
権限があれば一括ダウンロードができます

ソースコード

diff # 

(use scheme.list)

(define-syntax readm
  (syntax-rules (sym str list vec)
    [(_ list n t ...)
     (unfold (pa$ = n) (^_ (readm t ...)) (pa$ + 1) 0)]
    [(_ vec n t ...)
     (vector-tabulate n (^_ (readm t ...)))]
    [(_ sym)
     (read)]
    [(_ str)
     (symbol->string (read))]))

(define (main args)
  (let1 n (read)
        (do [(i n (- i 1))]
            [(zero? i)]
          (let* ([k (read)]
                 [l (readm list k sym)])
            (print (string-join (map number->string (sort l >)) " ")))))
  0)
0