Initial commit
This commit is contained in:
parent
be4070a4ba
commit
8a5603e637
6
SICP/exercise_1_42.janet
Normal file
6
SICP/exercise_1_42.janet
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
(defn compose [f g]
|
||||
(fn [x] (f (g x))))
|
||||
|
||||
(defn square [x] (* x x))
|
||||
|
||||
(print ((compose square inc) 6))
|
||||
Loading…
Reference in New Issue
Block a user