From 6be7eba8977a719146ffa8c3e9485bc22ec31855 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 26 May 2024 22:20:22 +0100
Subject: Setence type example

---
 examples/sentences.fco | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 examples/sentences.fco

(limited to 'examples/sentences.fco')

diff --git a/examples/sentences.fco b/examples/sentences.fco
new file mode 100644
index 0000000..ba1c10f
--- /dev/null
+++ b/examples/sentences.fco
@@ -0,0 +1,32 @@
+# See: https://rosettacode.org/wiki/Determine_sentence_type
+
+def classify(xs)
+    def sentence_type(s)
+        def ends_with?(s c)
+            if =(tail(s) "")
+                =(s c)
+            else
+                @ends_with?(tail(s) c)
+            end
+        end
+        if ends_with?(s "?")
+            +(s " -> Q")
+        elif ends_with?(s "!")
+            +(s " -> E")
+        elif ends_with?(s ".")
+            +(s " -> S")
+        else:
+            +(s " -> N")
+        end
+    end
+    map(sentence_type xs)
+end
+
+def main()
+    map(display
+        classify(
+            list("Hi there, how are you today?"
+                 "I'd like to present you the washing machine 9001."
+                 "You have been nomiated to win one of these!"
+                 "Just make sure you don't break it")))
+end
-- 
cgit v1.2.3