From 96812ea58be3bdde99aae8968160118fd3a6a1ff Mon Sep 17 00:00:00 2001 From: John Henry Thompson Date: Thu, 25 Apr 2024 10:00:04 -0400 Subject: [PATCH] lingo-birth-evolution-demise --- _jht-site.code-workspace | 15 +++++++++------ .../4-history/lingo-birth-evolution-demise.html | 16 ++++++++++++++-- 2 files changed, 23 insertions(+), 8 deletions(-) diff --git a/_jht-site.code-workspace b/_jht-site.code-workspace index 362d7c25..02912fbe 100644 --- a/_jht-site.code-workspace +++ b/_jht-site.code-workspace @@ -1,7 +1,10 @@ { - "folders": [ - { - "path": "." - } - ] -} \ No newline at end of file + "folders": [ + { + "path": "." + } + ], + "settings": { + "liveServer.settings.port": 5501 + } +} diff --git a/aa/jht-20231028T124938Z-001/4-history/lingo-birth-evolution-demise.html b/aa/jht-20231028T124938Z-001/4-history/lingo-birth-evolution-demise.html index 5c692174..a6b46a49 100644 --- a/aa/jht-20231028T124938Z-001/4-history/lingo-birth-evolution-demise.html +++ b/aa/jht-20231028T124938Z-001/4-history/lingo-birth-evolution-demise.html @@ -8179,7 +8179,14 @@

word-wrap: normal; color: rgb(36, 39, 41); " - >fib ^ self <= 2 ifTrue: [ 1 ] ifFalse: [ (self - 2) fib + (self - 1) fib ] + > +fib + ^ self <= 2 + ifTrue: [ 1 ] + ifFalse: [ (self - 2) fib + (self - 1) fib ] + +


@@ -8221,7 +8228,12 @@

color: rgb(57, 51, 24); word-wrap: normal; " - >(defun fibonacci (n &optional (a 0) (b 1) (acc ())) (if (zerop n) (nreverse acc) (fibonacci (1- n) b (+ a b) (cons a acc))))(fibonacci 5) ; ==> (0 1 1 2 3) + > +(defun fibonacci (n &optional (a 0) (b 1) (acc ())) + (if (zerop n) + (nreverse acc) + (fibonacci (1- n) b (+ a b) (cons a acc)))) +