From e1999087d31e454de0884637016fc0f93bd2bd7e Mon Sep 17 00:00:00 2001 From: dvarrui Date: Sun, 8 Jan 2023 11:00:25 +0000 Subject: [PATCH 1/3] [F] example. --- README.md | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/README.md b/README.md index 1c1a84f..6139a6c 100644 --- a/README.md +++ b/README.md @@ -31,7 +31,7 @@ Usage ```clojure require "lisp" -Lisp.eval(<<-eos) +Lisp.eval(<<-eos (begin (define fact (lambda (n) @@ -39,7 +39,8 @@ Lisp.eval(<<-eos) 1 (* n (fact (- n 1)))))) (fact 10)) -eos # => 3628800 + eos +) # => 3628800 ``` Commandline From c3cc3f39eda62b1d04d8711dd9ea8b30cd66a47b Mon Sep 17 00:00:00 2001 From: dvarrui Date: Sun, 8 Jan 2023 11:04:11 +0000 Subject: [PATCH 2/3] [N] factorial example. --- examples/factorial.rb | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100755 examples/factorial.rb diff --git a/examples/factorial.rb b/examples/factorial.rb new file mode 100755 index 0000000..b881a29 --- /dev/null +++ b/examples/factorial.rb @@ -0,0 +1,14 @@ +#!/usr/bin/env ruby +require "lisp" + +src = <<-eos + (begin + (define fact + (lambda (n) + (if (<= n 1) + 1 + (* n (fact (- n 1)))))) + (fact 10)) +eos + +puts Lisp.eval(src) # => 362880 From a7beec5adb2ccf49645bffc842414e9e4371c381 Mon Sep 17 00:00:00 2001 From: dvarrui Date: Sun, 8 Jan 2023 11:10:13 +0000 Subject: [PATCH 3/3] [N] square example. --- examples/square.rb | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100755 examples/square.rb diff --git a/examples/square.rb b/examples/square.rb new file mode 100755 index 0000000..adbf999 --- /dev/null +++ b/examples/square.rb @@ -0,0 +1,12 @@ +#!/usr/bin/env ruby +require "lisp" + +src = <<-CODE +(begin + (define square (lambda (x) (* x x))) + (square 9) +) +CODE + +puts Lisp.eval(src) +