摘要：
; 获取文件中的所有行(map list->string (with-input-from-file filename (λ () (let loop ((ls1 '()) (ch (read-char)) (ret '())) (if (eof-object? ch) (begin ... 阅读全文
posted @ 2012-12-15 16:27
小保哥
阅读(183)
评论(0)
推荐(0)
2012年12月15日 #
浙公网安备 33010602011771号