Merge branch '__rultor'

objectionary · Jun 13, 2024 · c66f07f · c66f07f
2 parents c5bbe04 + f35216e
commit c66f07f
Show file tree

Hide file tree

Showing 4 changed files with 36 additions and 179 deletions.
diff --git a/eo-runtime/src/main/eo/org/eolang/seq.eo b/eo-runtime/src/main/eo/org/eolang/seq.eo
@@ -28,4 +28,21 @@
 
 # The object, when being dataized, dataizes all provided
 # "steps" (except the last one) and returns the last one.
-[steps] > seq /?
+[steps] > seq
+  if. > @
+    steps.length.eq 0
+    true
+    loop 0
+  steps.length.minus 1 > max-len!
+
+  [index] > loop
+    if. > @
+      and.
+        index.lt ^.max-len
+        or.
+          (dataized (steps.at index)).as-bool
+          true
+      ^.loop
+        index.plus 1
+      steps.at index
+
diff --git a/eo-runtime/src/main/java/EOorg/EOeolang/EOseq.java b/eo-runtime/src/main/java/EOorg/EOeolang/EOseq.java
diff --git a/eo-runtime/src/test/eo/org/eolang/seq-tests.eo b/eo-runtime/src/test/eo/org/eolang/seq-tests.eo
@@ -174,3 +174,21 @@
                   m.put (m.as-int.plus 1)
                   m
               1
+
+# Test.
+[] > seq-calculates-and-returns
+  eq. > @
+    1
+    seq
+      *
+        0
+        1
+
+# Test.
+[] > seq-calculates-and-returns-object
+  eq. > @
+    "Hello!"
+    seq
+      *
+        0
+        "Hello!"
diff --git a/eo-runtime/src/test/java/EOorg/EOeolang/EOseqTest.java b/eo-runtime/src/test/java/EOorg/EOeolang/EOseqTest.java