用scheme写了个简单的 Threading function:
(define (~>> arg list-of-funcs)
((foldl compose identity list-of-funcs) arg))
;; For example:
(~>> 0
(list add1
add2
product3
product4))
用scheme写了个简单的 Threading function:
(define (~>> arg list-of-funcs)
((foldl compose identity list-of-funcs) arg))
;; For example:
(~>> 0
(list add1
add2
product3
product4))