From 1e85131ada02788971f7128ea3c25888d4d62b69 Mon Sep 17 00:00:00 2001 From: rsiddharth <s@ricketyspace.net> Date: Fri, 16 Mar 2018 02:02:52 +0000 Subject: net: Add (net ricketyspace sicp one fortytwo). * net/ricketyspace/sicp/one/fortytwo.scm: New file. --- net/ricketyspace/sicp/one/fortytwo.scm | 35 ++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 net/ricketyspace/sicp/one/fortytwo.scm (limited to 'net/ricketyspace') diff --git a/net/ricketyspace/sicp/one/fortytwo.scm b/net/ricketyspace/sicp/one/fortytwo.scm new file mode 100644 index 0000000..5742588 --- /dev/null +++ b/net/ricketyspace/sicp/one/fortytwo.scm @@ -0,0 +1,35 @@ +;;;; Under Creative Commons Attribution-ShareAlike 4.0 +;;;; International. See +;;;; <https://creativecommons.org/licenses/by-sa/4.0/>. +;;;; +;;;; _____ +;;;; < 42! > +;;;; ----- +;;;; \ __ +;;;; \ (**) +;;;; \ (U ) +;;;; \ /--\ +;;;; __ / \ \ +;;;; U**U\.'@@@@@@`.\ ) +;;;; \__/(@@@@@@@@@@) / +;;;; (@@@@@@@@)(( +;;;; `YY~~~~YY' \\ +;;;; || || >> +;;;; + +(define-module (net ricketyspace sicp one fortytwo) + #:export (sicp-compose inc square)) + +(define (sicp-compose f g) + (lambda (x) (f (g x)))) + +(define (inc x) (1+ x)) +(define (square x) (* x x)) + +;;; GNU Guile REPL + +;;; scheme@(guile-user)> ,use (net ricketyspace sicp one fortytwo) +;;; scheme@(guile-user)> ((sicp-compose square inc) 6) +;;; $21 = 49 +;;; scheme@(guile-user)> ((sicp-compose square inc) 8) +;;; $22 = 81 -- cgit v1.2.3