feat: add Roc

Author: markjreed

languages.json

@@ -112,7 +112,6 @@
     "pil":          "PicoLisp",
     "pilot":        "PILOT",
     "p8":           "Prog8",
-    "raku":         "Raku (formerly Perl 6)",
     "phix":         "Phix",
     "php":          "PHP",
     "pl":           "Prolog",
@@ -126,11 +125,13 @@
     "pyth":         "Pyth",
     "q":            "Qore",
     "r":            "R",
+    "raku":         "Raku (formerly Perl 6)",
     "reb":          "REBOL",
     "rb":           "Ruby",
     "rexx":         "Rexx",
     "rkt":          "Racket",
     "rf":           "Ratfor",
+    "roc":          "Roc",
     "rs":           "Rust",
     "s3":           "Starset",
     "scala":        "Scala",

solutions/punishment_roc.txt

@@ -0,0 +1,15 @@
+app [main!] { cli: platform "https://github.com/roc-lang/basic-cli/releases/download/0.19.0/Hj-J_zxz7V9YurCSTFcFdu6cQJie4guzsPMUi5kBYUk.tar.br" }
+
+import cli.Stdout
+import cli.Arg exposing [Arg]
+
+punish! = |count|
+    ret = Stdout.line!("I will not throw paper airplanes in class.")
+    if count > 1 then
+        punish!(count - 1)
+    else
+        ret
+
+main! : List Arg => Result {} _
+main! = |_args|
+    punish!(500)