2007-09-03から1日間の記事一覧
id:mzp:20070902のと比べてみる。 #! /usr/bin/gosh (use srfi-1) (define (main args) (define files (map open-input-file (cdr args))) (let loop () (define l (map read-line files)) (unless (every eof-object? l) (print (string-join (map (lambda …