Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Longest-string-challenge/Lambdatalk/longest-string-challenge.lambdatalk
+++ b/Task/Longest-string-challenge/Lambdatalk/longest-string-challenge.lambdatalk
@ -0,0 +1,19 @@
+{def longest_string
+ {def longest_string.r
+  {lambda {:max :s}
+   {if {S.empty? {S.rest :s}}
+    then
+    else {if {= {W.length {S.first :s}} :max} then {br}{S.first :s} else}
+         {longest_string.r :max {S.rest :s}}}}}
+ {lambda {:s}
+  {longest_string.r {max {S.map W.length :s}} :s #}}}
+-> longest_string
+
+{def words a bb ccc ddd ee f ggg}  // it's a sentence, not a list
+-> words
+
+{longest_string {words}}
+->
+ccc
+ddd
+ggg