str

Author: dezren39

pkgs/roc/applications/display/go/libapp.so

@@ -1,16 +1,6 @@
 app [main] {
   pf: platform "../../../platforms/go/main.roc"
 }
-import Lib.Display exposing [str]
+import Lib.Display exposing [str, matrix]
 main : Str
-main = str [
-  ["Roc", "<3", "Go", "!", "!", "!"],
-  ["This", "is", "a", "Roc", "application", "running", "on", "Go."],
-  ["It", "imports", "a", "Roc", "module", "and", "calls", "a", "function", "from", "it."],
-]
-#matrix 2 3
-#[
-#  ["Roc", "<3", "Go", "!", "!", "!"],
-#  ["This", "is", "a", "Roc", "application", "running", "on", "Go."],
-#  ["It", "imports", "a", "Roc", "module", "and", "calls", "a", "function", "from", "it."],
-#]
+main = str (matrix [261, 23])

pkgs/roc/applications/display/go/main

@@ -1,13 +1,25 @@
-module [str]
-#module [str, matrix]
+module [str, matrix]
 str : List (List Str) -> Str
 str = |lines| lines
-  |> List.map (\ws -> Str.join_with(ws, " "))
+  |> List.map (\ws -> Str.join_with(ws, "\t"))
   |> Str.join_with("\n")
-#matrix : Int -> Int -> List (List Str)
-#matrix rows cols =
-#    List.range 0 rows
-#        |> List.map (\r ->
-#            List.range 0 cols
-#                |> List.map (\c -> Num.to_str (r * cols + c))
-#        )
+matrix : List I128 -> List (List Str)
+matrix = |list|
+    List.range { start: At 0, end: At (Result.with_default(List.get(list, 0), 10) - 1) }
+        |> List.map (\r ->
+            List.range { start: At 0, end: At (Result.with_default(List.get(list, 1), 10) - 1) }
+                |> List.map (\c ->
+                    Str.join_with [
+                        Str.repeat "0" (
+                            Str.count_utf8_bytes((Num.to_str (
+                                (Result.with_default(List.get(list, 0), 10) *
+                                 Result.with_default(List.get(list, 1), 10)) - 1
+                            ))) -
+                            Str.count_utf8_bytes((Num.to_str (
+                                r * Result.with_default(List.get(list, 1), 10) + c
+                            )))
+                        ),
+                        Num.to_str (r * Result.with_default(List.get(list, 1), 10) + c)
+                    ] ""
+                )
+        )

pkgs/roc/applications/display/go/main.roc

@@ -34,7 +34,6 @@ while true; do
   --help) usage ;;
   --)
     shift
-    break
     ;;
   # *) usage ;;
   *)