Memoize

Common_Lisp_CL-CSV

 
# データの途中に、改行、カンマ、""(エスケープしたダブルクォーテーション)
% cat sample_for_cl_csv.csv
id,name,comment
1,"Miles","So What."
2,"Eric","When you hear music, after it's over, it's gone in the air. 
You can never capture it again."
3,"Lou","""Funky, Funky."""
 

 
* (ql:quickload 'cl-csv)
 
* (cl-csv:read-csv #P"sample_for_cl_csv.csv")
 
(("id" "name" "comment") ("1" "Miles" "So What.")
 ("2" "Eric" "When you hear music, after it's over, it's gone in the air. 
You can never capture it again.")
 ("3" "Lou" "\"Funky, Funky.\""))
 
* (let ((fn (lambda (row) (format t "~{~A~^|~}~%" row))))
    (cl-csv:read-csv #P"sample_for_cl_csv.csv" :map-fn fn))
id|name|comment
1|Miles|So What.
2|Eric|When you hear music, after it's over, it's gone in the air. 
You can never capture it again.
3|Lou|"Funky, Funky."
(NIL NIL NIL NIL)
 

more: