corected the implementation of strcmp and put it in to a separate function

2025-12-24 12:41:20 +01:00
parent 770d795872
commit ca43cea785
1 changed files with 8 additions and 1 deletions
--- a/strcmp.sl
+++ b/strcmp.sl
@@ -1,7 +1,14 @@
 import stdlib/stdlib.sl
 import stdlib/io.sl

+: strcmp
+    3 pick 2 pick @ swap @ ==
+;
+
 : main
-    "gffl" drop @ "gffl" drop @ ==
+    "g" "g"
+    strcmp
    puti cr
+    puts
+    puts
 ;