Data commit

Task/Longest-string-challenge/Icon/longest-string-challenge-1.icon

@@ -0,0 +1,14 @@
+procedure main(arglist)
+    local b  # the current buffer (string)
+    local l  # the last string
+    local L  # a \n delimited accumulation of all the longest strings
+
+    while b := read() do {
+        /l := b      # primes l on first pass
+        b ? ( move(*l), if move(1) then L := (l := b) || "\n" else if move(0) then L := (\L|"") || b || "\n")
+            #       move(*l) - fails if b is not l characters long
+            #       move(1)  - succeeds/fails if the string is longer and triggers a reset of L
+        }
+
+    write(\L)
+end

Task/Longest-string-challenge/Icon/longest-string-challenge-2.icon

@@ -0,0 +1,12 @@
+procedure main()
+    longest(".")   # needs a single character seed to throw away
+end
+
+procedure longest(Longest)
+    Line := read() | return Longest        # read until we can return the longest strings
+    if Line[*Longest] then Longest := Line # prime/reset Longest
+    Longest := longest(Longest)            # use stack to hold multiples
+    if Line[*Longest] then write(Line)     # write only longest strings,
+                                           # Line must be at least as long as Longest
+    return Longest                         # feed back longest for length
+end