結果

問題 No.893 お客様を誘導せよ
ユーザー ducktail
提出日時 2019-10-10 14:14:42
言語 Scheme
(Gauche-0.9.8)
結果
AC  
実行時間 1,184 ms
コード長 612 Byte
コンパイル時間 12 ms
使用メモリ 31,748 KB
最終ジャッジ日時 2019-10-10 14:14:46

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
1sample1.txt AC 21 ms
8,248 KB
1sample2.txt AC 23 ms
8,244 KB
case1.txt AC 98 ms
12,756 KB
case2.txt AC 357 ms
19,836 KB
case3.txt AC 363 ms
19,820 KB
case4.txt AC 436 ms
19,812 KB
case5.txt AC 216 ms
15,912 KB
challenge1.txt AC 21 ms
8,248 KB
challenge2.txt AC 1,184 ms
31,748 KB
challenge3.txt AC 28 ms
8,820 KB
challenge4.txt AC 21 ms
8,312 KB
challenge5.txt AC 23 ms
8,464 KB
challenge6.txt AC 24 ms
9,236 KB
テストケース一括ダウンロード
コンパイルメッセージ

                

                

ソースコード

diff #
(define (read-list n)
  (cond [(zero? n) '()]
        [else (let1 x (read)
                    (cons x (read-list (- n 1))))]))

(define (read-list-list n)
  (cond [(zero? n) '()]
        [else (let1 m (read)
                    (cons (read-list m) (read-list-list (- n 1))))]))

(define (solve lx)
  (let loop ([lx lx])
    (let1 ly (filter (^x (not (null? x))) lx)
          (cond [(null? ly) '()]
                [else (append (map car ly) (loop (map cdr ly)))]))))

(define (main args)
  (let* ([n (read)]
         [ls (read-list-list n)])
    (print (string-join (map number->string (solve ls)) " ")))
  0)
0