Setence type example

1 files changed, 32 insertions, 0 deletions

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