ソースコード量の比較 schemeとPHPの続き
一昨日のソースコード量の比較 schemeとPHPの記事にpodhmoさんからコメントを頂いたのですが、ちゃんと理解できなかったので、cuteとかcutをlambdaに置き換えてみる。
元のソース。
(let1 ht (make-hash-table) (for-each (cute hash-table-update! ht<> (lambda (x) (+ x 1)) 0) year_month) (sort-by (hash-table-map ht cons) (compose x->string car) string>?))
cuteとかcutをlambdaで置き換えたソース。
(let1 ht (make-hash-table) (for-each (let ((e1 ht) (e2 (lambda (x) (+ x 1))) (e3 0)) (lambda (s) (hash-table-update! e1 s e2 e3))) year_month) (sort-by (hash-table-map ht cons) (compose x->string car) string>?))
ということで何とか理解しました。
ありがとうございます! > podhmoさん