端端舝

One
Common Lisp匹手伐件仿奶瓜奈仄凶中

赻撩畿賡
♂ twitter: ␀sin_clav
♂ github: ␀t-sin
♂ 珧汜及Common Lisp妏中
♂ 云仄仍午反nil

踏゜云�仄允月仇午
♂ Common Lisp匹伐件仿奶瓜奈
支勻凶日汁仿井勻凶ㄗ�辻ㄘ
♂ 伐件仿奶瓜奈毛㜭卞仄化支月兮ㄗ磐彆ㄘ
♂ 升丹伐件仿奶瓜奈允月及井ㄗ妏中源ㄘ
♂ 公及囀窒�婖ㄗ偞�?灍蚾ㄘ

扑尼伙及伐件仿奶瓜奈
方仁云岍�卞卅曰引允方友

方仁支月伐件仿奶瓜奈(1)
♂ 失弁本旦伕弘笢及hoge API尺及失弁本旦
♂ 公及伕弘笢及hoge API及失弁本旦杅
$ cat /var/log/nginx/access.log | grep /api/hoge
xx.xx.xx.xx - - [21/Oct/＃] "GET / HTTP/1.1" ＃.
$ cat /var/log/nginx/access.log | grep /api/hoge |
wc -l
♂ 3

♂ CSV白央奶伙笢及2蹈醴及磁�
$ cat data.csv
id1,1
id2,2
id3,3
$ cat data.csv | awk -F , '{sum+=$2}END{print sum}'
6

shell眕俋及晟惤(awk)云廿尹卅中午母丟＃ˋ
$ cat data.csv
id1,1
id2,2
id3,3
$ cat data.csv | awk -F , '{sum+=$2}END{print sum}'
6

Common Lisp匹支勻化心月
♂ 兮氏少Common Lisp匹﹝
$ cut -d ',' -f 2 data.csv | ros run -e '(print
(loop for line = (read *standard-input* nil :eof)
until (eq :eof line) sum line))' -q
6
$ ros -s split-sequence -e '(with-open-file (in
"data.csv") (print (loop for l = (read-line in
nil :eof) until (eq l :eof) sum (parse-integer (nth
1 (split-sequence:split-sequence #, l))))))' -q
♂ 6

卅互允亢化仄厄
歹木歹木反升丹允木壬中中及分＃＃

伐件仿奶瓜奈勻弔今及凶戶卞
♂ ⻌薯引歹曰及正奶皿杅毛𦑩日允
每 *standard-input*
每 with-open-file丹氏厄氏
每俴卞�仄化及loop
♂ ☆�I燴★及磁傖勻弔仁𤩸仃月午方中

伐件仿奶瓜奈毛盓堔允月伐件ㄐ
♂ CSV及2蹈醴磁�毛one匹﹝
♂ 兮氏少one匹﹝
$ cut -d ',' -f 2 data.csv | ros one '(one:for* - <
one:read* +> + 0)'
6
$ ros one '(one:for* #P"data.csv" < one:read-line*
$ #/(split-sequence #, _) $ #/(nth 1 _) $ parse-
integer +> + 0)'
6

One午反
☆�I燴★毛
窣磐仄化
⻌薯毛wrap允月
仿奶皮仿伉匹允ㄐㄐ

One及辻夔衙猁
斗月中云𠸎厥切匹云�五五仁分今中

One及價掛�恅
♂ ゴ僇及⻌薯毛﹜棒及�瘍匹忳仃月
CL-USER> (one:for ⻌薯 [�瘍由仿丟奈正]*)

One及價掛�恅
左皮斥尼弁玄,
stream,
pathname
由奶皿腔卅�瘍
$, ?, <, >, +>
1竘杅憝杅,
扑件示伙

One及價掛�恅
♂ 1竘杅lmbda宒蚚伉奈母穴弁伕
左皮斥尼弁玄,
stream,
pathname
由奶皿腔卅�瘍
$, ?, <, >, +>
1竘杅憝杅,
扑件示伙
;; (lambda (input) (search "hoge" input)) 午肮元
#/(search "hoge" _)
⻌薯

�瘍`$`: �I燴及磁傖
♂ ゴ僇及⻌薯卞由仿丟奈正ㄗ�I燴ㄘ毛磁傖
♂ 瞰
CL-USER> (one:for ⻌薯 $ 憝杅or憝杅靡 ...)
CL-USER> (one:for 1 $ print)
"1" ; ⻌薯卞print互羥蚚今木凶
CL-USER> (one:for 1 $ 1+ $ print)
"2" ; 1+及摽卞print互羥蚚今木凶

�瘍`<`: ⻌薯及奻毛靜曰殿仄
♂ ゴ僇及⻌薯及奻毛loop允月(憝杅匹)
♂ 瞰
CL-USER> (one:for ⻌薯 < 憝杅or憝杅靡 ...)
CL-USER> (one:for '(1 2 3) < cdr $ princ)
123 ; cdr匹loop仄凶手及互堤薯今木凶
CL-USER> (one:for #P"nums.csv" < one:read-line* $
print)
"id1,1"
"id2,2" ; read-line* (:EOF匹皺歹月) 匹loop仄凶

�瘍`?`: 沭璃卞方月白奴伙正
♂ ゴ僇及⻌薯及丹切扴惤匹t卞卅月手及及心籵允
♂ 瞰
CL-USER> (one:for ⻌薯 ? 扴惤 ...)
♂ CL-USER> (one:for '(1 2 3) < cdr ? oddp $ print)
1
3 ; ✽杅分仃互堤薯今木凶

�瘍`>`: �I燴磐彆毛闊戶煋戈
♂ ゴ僇及⻌薯毛伉旦玄卞闊戶煋氏匹�I燴允月
♂ 瞰
CL-USER> (one:for ⻌薯 > 劐𡥼允月憝杅 ...)
CL-USER> (one:for 1 > identity $ print)
(1) ; ⻌薯互伉旦玄卞卅月
CL-USER> (one:for '(1 2 3) < cdr > identity $
print)
(1 2 3) ; ゴ僇及⻌薯允屯化互伉旦玄卞卅月
CL-USER> (one:for '(1 2 3) < cdr > #/(apply #'+ _)
$ print)
6 ; 磁�今木凶

�瘍`+>`: �I燴磐彆毛�心煋戈
♂ ゴ僇及⻌薯毛田永白央六內卞�心煋戈
♂ 瞰
CL-USER> (one:for ⻌薯 +> 2竘杅憝杅 [場ヽ�] ...)
CL-USER> (one:for '(1 2 3) < cdr +> (lambda (a b)
(+ a b)) 0 $ print)
6 ; 逋仄煋引木凶
; 墿中﹝lambda及窒煦互+分仃匹𤩸仃月午中中井手

灍蕣及妏蚚瞰
仇仇井日互掛絞卞支曰凶井勻凶仇午匹允

伐件仿奶瓜奈毛盓堔允月伐件ㄐ
♂ CSV及2蹈醴磁�
♂ 㻢𨃨⻌薯毛末奈玄
$ seq 1 5 | shuf | ros one "(one:for* - < one:read-
line* > #/(sort _ #'string<))"
1
＃
5
$ ros one '(one:for* #P"data.csv" < one:read-line*
$ #/(split-sequence #, _) $ #/(nth 1 _) $ parse-
integer +> + 0)'
6

扑尼伙傺ㄗ1ㄘ: �仃ㄐ交奈白巧瓦失丞
◇▽白央件譎鼻▼☆�仃ㄐ交奈白巧瓦失丞★午中丹恅趼蹈分仃匹絿
少扑尼伙傺�絻◆, https://togetter.com/li/1041621
$ echo �仃ㄐ交奈白巧瓦失丞 | ros one '(one:for - <
one:read-line* $ #/(cons _ (length _)) $ #/(cons
(repeat-sequence (car _) (1+ (cdr _))) (cdr _)) $ #/
(batches (car _) (1+ (cdr _))) < cdr $ #/(format t "~a~
%" _))'
�仃ㄐ交奈白巧瓦失丞�
仃ㄐ交奈白巧瓦失丞�仃
ㄐ交奈白巧瓦失丞�仃ㄐ
交奈白巧瓦失丞�仃ㄐ交
奈白巧瓦失丞�仃ㄐ交奈
白巧瓦失丞�仃ㄐ交奈白
巧瓦失丞�仃ㄐ交奈白巧
瓦失丞�仃ㄐ交奈白巧瓦
失丞�仃ㄐ交奈白巧瓦失
丞�仃ㄐ交奈白巧瓦失丞

扑尼伙傺ㄗ2ㄘ: 扔件扑乓奶件喀ぃ必奈丞
https://twitter.com/ziuziu/status/918070729341587457
$ echo 中引反手丹丹仍井卅中云元中今氏及午仃中 | ros one
'(one:for* - < one:read-line* $ #/(ppcre:regex-replace-
all "中" _ "奶尼奈ㄐ"))'
奶尼奈ㄐ引反手丹丹仍井卅奶尼奈ㄐ云元奶尼奈ㄐ今氏及午仃
奶尼奈ㄐ

One及笢旯反ˋ
ㄗ切卅心卞仇仇引匹匹旦仿奶玉26繹匹允ㄘ

偞�及禾奶件玄
♂ 窒ⅲ午卅月☆�I燴★毛黃蕾今六月
♂ �I燴嶲毛傾月犯奈正反Lisp左皮斥尼弁玄
♂ 吽正奶皿趙
每⻌薯卞�允月秶郘�恅(loop支if)毛蕎允
每⻌薯及畆螝卅�I燴(墿中靡ゴ脹)毛蕎允
♂ 吽丟乒伉

由奶皿毛�眻允
$ cat access.log | grep html | sed ゜媆 | sort

grep sedcat sort

grep sedcat sort
grep sedcat sort( )) ) )(((

grep sedcat sort
(sort (sed (grep (cat "access.log"))))

grep sedcat sort
(sort (sed (grep (cat "access.log"))))
憝杅磁傖分!
?由奶皿井日Lisp尺?

吽丟乒伉毛蕉尹月
♂ ⻌薯毛�窒丟乒伉卞离中化反母丟
♂ ⻌薯反允什棒及�I燴卞霜允
;; 母丟卅戊奈玉
;; ㄗaccess.log互10GB丐勻凶日＃ˋㄘ
(sort (mapcar #'sed
(mapcar #'grep
(cat "access.log")))
#'string<)
(sort (loop
:for line in (cat "access.log")
:when (grep line)
:collect (sed line))
#'string<)

�I燴白伕奈及瞎心蕾化ㄗ1ㄘ
♂ 囀窒匹仇氏卅戊奈伙弘仿白毛手勾﹜中勻仇及
lambda宒毛勾仁曰凶中
cat
grep
grep
grep
grep
sed
sed
sed
sort
< ? >
: ⻌薯及霜木
: �I燴及lambda宒

�I燴白伕奈及瞎心蕾化ㄗ2ㄘ
♂ lambda宒毛窣友化白伕奈毛釬月
每仇氏卅憝杅匹由奈汁毛＃
每窣友月
;;`$`反分中凶中仇氏卅覜元
(defun compose (fn2 fn1)
(lambda (input)
(funcall fn2 (funcall fn1 input)))
;; cat | grep | sed
(compose (compose #'grep #'sed) #'cat)

覜砑
♂ lambda宒及⻌木赽華沬反犯田永弘勾日中
♂ 扑尼伙支REPL匹﹜引丐引丐妏尹月
♂ 引分引分蜊囡及豻華丐曰公丹
每 `+>`卞2竘杅lambda宒毛𤩸仁午仇欠卅升

One毛凶戶仄卞妏勻化心化友﹝
`$ ros install 喧-莽勳紳/棗紳梗蛾匹⻌月方ㄐ

端端舝

One - Common Lisp匹手伐件仿奶瓜奈仄凶中

Recommended

More Related Content

What's hot (18)

Similar to One - Common Lisp匹手伐件仿奶瓜奈仄凶中 (20)

One - Common Lisp匹手伐件仿奶瓜奈仄凶中