arturo-lang · drkameleon · Jun 12, 2023 · May 3, 2023 · May 3, 2023 · May 3, 2023
diff --git a/examples/rosetta/arithmetic - rational.art b/examples/rosetta/arithmetic - rational.art
@@ -14,4 +14,4 @@ print ["a % b  :" a % b]
 print ["reciprocal b:" reciprocal b]
 print ["neg a:" neg a]
 
-print ["pi ~=" to :rational 3.14]
+print ["pi ~=" to :rational pi]
diff --git a/examples/rosetta/arithmetic - rational.res b/examples/rosetta/arithmetic - rational.res
@@ -8,4 +8,4 @@ a // b : 2/3
 a % b  : 1/2 
 reciprocal b: 4/3 
 neg a: -1/2 
-pi ~= 157/50
+pi ~= 817696623/260280919
diff --git a/examples/rosetta/bacon cipher.art b/examples/rosetta/bacon cipher.art
@@ -20,7 +20,7 @@ encodeBacon: function [plaintext,message][
     cnt: 0
     loop lower message 'c [
         if? lower? c [
-            'result ++ (et\[cnt] = `A`)? -> c -> upper c
+            'result ++ (et\[cnt] = 'A')? -> c -> upper c
             cnt: cnt + 1
             if cnt = size et -> break
         ]
@@ -34,8 +34,8 @@ decodeBacon: function [message][
     result: ""
     loop message 'c [
         if or? lower? c upper? c [
-            if? lower? c -> 'et ++ `A`
-            else -> 'et ++ `B`
+            if? lower? c -> 'et ++ 'A'
+            else -> 'et ++ 'B'
 
             if 5 = size et [
                 if? key? RevCodes et -> 'result ++ RevCodes\[et]

diff --git a/examples/rosetta/base 16 numbers needing a to f.art b/examples/rosetta/base 16 numbers needing a to f.art
@@ -1,6 +1,6 @@
 needsAF?: function [x][
     hex: as.hex x
-    loop `a`..`f` 'c [
+    loop 'a'..'f' 'c [
         if contains? hex c ->
             return true
     ]

diff --git a/examples/rosetta/bioinformatics - subsequence.art b/examples/rosetta/bioinformatics - subsequence.art
@@ -1,4 +1,4 @@
-bases: [`A` `G` `C` `T`]
+bases: ['A' 'G' 'C' 'T']
 randSeq: join map 1..200 => [sample bases]
 randSub: join map 1..4 => [sample bases]
 

diff --git a/examples/rosetta/caesar cipher.art b/examples/rosetta/caesar cipher.art
@@ -1,7 +1,7 @@
-ia: to :integer `a`
-iA: to :integer `A`
-lowAZ: `a`..`z`
-uppAZ: `A`..`Z`
+ia: to :integer 'a'
+iA: to :integer 'A'
+lowAZ: 'a'..'z'
+uppAZ: 'A'..'Z'
 
 caesar: function [s, xx][
     k: (not? null? attr 'decode)? -> 26-xx -> xx

diff --git a/examples/rosetta/camel case and snake case.art b/examples/rosetta/camel case and snake case.art
@@ -4,7 +4,7 @@ camelToSnake: function [str][
     while [i < size str][
         ch: str\[i]
         if? upper? ch [
-            'result ++ `_` ++ lower str\[i]
+            'result ++ '_' ++ lower str\[i]
         ]
         else [
             'result ++ str\[i]
@@ -20,7 +20,7 @@ snakeToCamel: function [str][
     result: ""
     while [i < size str][
         ch: str\[i]
-        if? and? [ch=`_`][(i+1) < size str] [
+        if? and? [ch='_'][(i+1) < size str] [
             'result ++ upper str\[i+1]
             inc 'i
         ]

diff --git a/examples/rosetta/cantor set.art b/examples/rosetta/cantor set.art
@@ -1,15 +1,15 @@
 width: 81
 height: 5
 
-lines: array.of: height repeat `*` width
+lines: array.of: height repeat '*' width
 
 cantor: function [start length idx].export:[lines][
     seg: length / 3
     if seg = 0 -> return null
 
     loop idx..dec height 'i [
         loop (start + seg).. dec start + 2 * seg 'j 
-            -> set lines\[i] j ` `
+            -> set lines\[i] j ' '
     ]
     cantor start seg idx+1
     cantor start + 2 * seg seg idx+1

diff --git a/examples/rosetta/character codes.art b/examples/rosetta/character codes.art
@@ -1,3 +1,3 @@
 print to :integer first "a"
-print to :integer `a`
+print to :integer 'a'
 print to :char 97
diff --git a/examples/rosetta/cusip.art b/examples/rosetta/cusip.art
@@ -1,16 +1,16 @@
 validCUSIP?: function [cusip][
     s: 0
-    alpha: `A`..`Z`
+    alpha: 'A'..'Z'
 
     loop.with:'i chop cusip 'c [
         v: 0
 
         case ø
             when? [numeric? c] -> v: to :integer to :string c
             when? [in? c alpha] -> v: (index alpha c) + 1 + 9
-            when? [c = `*`] -> v: 36
-            when? [c = `@`] -> v: 37
-            when? [c = `#`] -> v: 38
+            when? [c = '*'] -> v: 36
+            when? [c = '@'] -> v: 37
+            when? [c = '#'] -> v: 38
             else []
 
         if odd? i -> v: 2 * v

diff --git a/examples/rosetta/distribution of 0 digits in factorial series.art b/examples/rosetta/distribution of 0 digits in factorial series.art
@@ -4,7 +4,7 @@ lim: 100
 loop 1..10000 'n [
     'f * n
     str: to :string f
-    'su + (enumerate str 'c -> c = `0`) // size str
+    'su + (enumerate str 'c -> c = '0') // size str
     if n = lim [
         print [n ":" su // n]
         'lim * 10

diff --git a/examples/rosetta/evolutionary algorithm.art b/examples/rosetta/evolutionary algorithm.art
@@ -1,5 +1,5 @@
 target: "METHINKS IT IS LIKE A WEASEL"
-alphabet: [` `] ++ @`A`..`Z`
+alphabet: [' '] ++ @'A'..'Z'
 p: 0.05
 c: 100
 

diff --git a/examples/rosetta/fasta format.art b/examples/rosetta/fasta format.art
@@ -2,7 +2,7 @@ parseFasta: function [data][
     result: #[]
     current: ø
     loop split.lines data 'line [
-        if? `>` = first line [
+        if? '>' = first line [
             current: slice line 1 (size line)-1
             set result current ""
         ]

diff --git a/examples/rosetta/find words with alternating vowels and consonants.art b/examples/rosetta/find words with alternating vowels and consonants.art
@@ -1,5 +1,5 @@
 words: read.lines relative "unixdict.txt"
-vowels: [`a` `e` `i` `o` `u`]
+vowels: ['a' 'e' 'i' 'o' 'u']
 alternatingVC?: function [w][
     lookForConsonant: true
     if contains? vowels first w -> lookForConsonant: false

diff --git a/examples/rosetta/happy numbers.art b/examples/rosetta/happy numbers.art
@@ -1,4 +1,4 @@
-ord0: to :integer `0`
+ord0: to :integer '0'
 happy?: function [x][
     n: x
     past: []

diff --git a/examples/rosetta/idiomatically determine all the lowercase and uppercase letters.art b/examples/rosetta/idiomatically determine all the lowercase and uppercase letters.art
@@ -1,2 +1,2 @@
-print ["lowercase letters:" @`a`..`z`]
-print ["uppercase letters:" @`A`..`Z`]
+print ["lowercase letters:" @'a'..'z']
+print ["uppercase letters:" @'A'..'Z']
diff --git a/examples/rosetta/mayan numerals.art b/examples/rosetta/mayan numerals.art
@@ -42,7 +42,7 @@ draw: function [mayans][
         loop 0..3 'j [
             prints HB
         ]
-        prints (i < idx)? -> UC -> UR ++ `\n`
+        prints (i < idx)? -> UC -> UR ++ '\n'
     ]
 
     loop 1..4 'i [
@@ -57,7 +57,7 @@ draw: function [mayans][
     loop 0..idx 'i [
         loop 0..3 'j ->
             prints HB
-        prints (i < idx)? -> LC -> LR ++ `\n`
+        prints (i < idx)? -> LC -> LR ++ '\n'
     ]
 ]
 

diff --git a/examples/rosetta/move-to-front algorithm.art b/examples/rosetta/move-to-front algorithm.art
@@ -1,5 +1,5 @@
 
-symbolTable: @`a`..`z`
+symbolTable: @'a'..'z'
 
 encodeWord: function [s][
     symt: new symbolTable

diff --git a/examples/rosetta/n-queens problem.art b/examples/rosetta/n-queens problem.art
@@ -25,7 +25,7 @@ loop result 'solution [
     loop solution 'col [
 
         line: repeat "-" BoardSize
-        line\[col-1]: `Q`
+        line\[col-1]: 'Q'
         print line
     ]
     print ""

diff --git a/examples/rosetta/password generator.art b/examples/rosetta/password generator.art
@@ -1,6 +1,6 @@
-lowercase: `a`..`z`
-uppercase: `A`..`Z`
-digits: `0`..`9`
+lowercase: 'a'..'z'
+uppercase: 'A'..'Z'
+digits: '0'..'9'
 other: map split "!\"#$%&'()*+,-./:;<=>?@[]^_{|}~" => [to :char]
 
 any: lowercase ++ uppercase ++ digits ++ other

diff --git a/examples/rosetta/permutations with repetitions.art b/examples/rosetta/permutations with repetitions.art
@@ -1,11 +1,11 @@
 decide: function [pc]->
-    and? pc\0 = `B`
-         pc\1 = `C`
+    and? pc\0 = 'B'
+         pc\1 = 'C'
 
 permutation: function [vals, n][
     k: size vals
     pn: array.of:n 0
-    p: array.of:n `0`
+    p: array.of:n '0'
 
     while [true][
         loop.with:'i pn 'x -> p\[i]: vals\[x]

diff --git a/examples/rosetta/playing cards.art b/examples/rosetta/playing cards.art
@@ -1,5 +1,5 @@
 ranks: 1..13
-suits: [`♣`, `♦`, `♥`, `♠`]
+suits: ['♣', '♦', '♥', '♠']
 
 define :card [rank, suit][
     init: [
@@ -11,10 +11,10 @@ define :card [rank, suit][
     print: [
         R: ø
         case [this\rank=]
-            when? [1] -> R: `A`
-            when? [11]-> R: `J`
-            when? [12]-> R: `Q`
-            when? [13]-> R: `K`
+            when? [1] -> R: 'A'
+            when? [11]-> R: 'J'
+            when? [12]-> R: 'Q'
+            when? [13]-> R: 'K'
             else -> R: this\rank
         ~{|R||this\suit|}
     ]

diff --git a/examples/rosetta/rhonda numbers.art b/examples/rosetta/rhonda numbers.art
@@ -1,4 +1,4 @@
-digs: (@`0`..`9`) ++ @`A`..`Z`
+digs: (@'0'..'9') ++ @'A'..'Z'
 toBase: function [n,base][
     join map digits.base:base n 'x -> digs\[x]
 ]

diff --git a/examples/rosetta/rot-13.art b/examples/rosetta/rot-13.art
@@ -1,7 +1,7 @@
 rot13: function [c][
     case [in? lower c]
-        when? -> `a`..`m` -> return to :char (to :integer c) + 13
-        when? -> `n`..`z` -> return to :char (to :integer c) - 13
+        when? -> 'a'..'m' -> return to :char (to :integer c) + 13
+        when? -> 'n'..'z' -> return to :char (to :integer c) - 13
         else  -> return c
 ]
 

diff --git a/examples/rosetta/search a list of records.art b/examples/rosetta/search a list of records.art
@@ -29,5 +29,5 @@ print last find records $[c][equal? c\name "Dar Es Salaam"]
 print get first find records $[c][less? c\population 5] 'name
 
 ; Print the population of the first city starting with 'A'.
-print get first find records $[c][equal? first c\name `A`] 'population
+print get first find records $[c][equal? first c\name 'A'] 'population
 
diff --git a/examples/rosetta/sedols.art b/examples/rosetta/sedols.art
@@ -1,8 +1,8 @@
-ord0: to :integer `0`
-ord7: to :integer `7`
+ord0: to :integer '0'
+ord7: to :integer '7'
 c2v: function [c][
     ordC: to :integer c
-    if? c < `A` -> return ordC - ord0
+    if? c < 'A' -> return ordC - ord0
     else -> return ordC - ord7
 ]
 

diff --git a/examples/rosetta/selectively replace multiple instances of a character within a string.art b/examples/rosetta/selectively replace multiple instances of a character within a string.art
@@ -15,7 +15,7 @@ multiReplace: function [str, rules][
 ]
 
 print multiReplace "abracadabra" #[
-    a: [[0 `A`][1 `B`][3 `C`][4 `D`]]
-    b: [[0 `E`]]
-    r: [[1 `F`]]
+    a: [[0 'A'][1 'B'][3 'C'][4 'D']]
+    b: [[0 'E']]
+    r: [[1 'F']]
 ]
diff --git a/examples/rosetta/set right-adjacent bits.art b/examples/rosetta/set right-adjacent bits.art
@@ -7,10 +7,10 @@ setBits: function [inp, n][
     else [
         result: split inp
         loop 0..e-1 'i [
-            if inp\[i] = `1` [
+            if inp\[i] = '1' [
                 j: i + 1
                 while [and? j =< i+n j < e][
-                    result\[j]: `1`
+                    result\[j]: '1'
                     j: j + 1
                 ]
             ]

diff --git a/examples/rosetta/soundex.art b/examples/rosetta/soundex.art
@@ -1,18 +1,18 @@
 code: #[
-    "aeiouy": `W`
-    "bfpv": `1`
-    "cgjkqsxz": `2`
-    "dt": `3`
-    "l": `4`
-    "mn": `5`
-    "r": `6`
+    "aeiouy": 'W'
+    "bfpv": '1'
+    "cgjkqsxz": '2'
+    "dt": '3'
+    "l": '4'
+    "mn": '5'
+    "r": '6'
 ]
 
 getCode: function [ch][
     loop keys code 'k [
         if contains? k lower to :string ch -> return code\[k]
     ]
-    return ` `
+    return ' '
 ]
 
 soundex: function [str][
@@ -21,8 +21,8 @@ soundex: function [str][
     prev: getCode first str
     loop.with:'i str 'c [
         curr: getCode c
-        if curr <> ` ` [
-            if and? curr <> `W`
+        if curr <> ' ' [
+            if and? curr <> 'W'
                     curr <> prev -> 'result ++ curr
             prev: curr
         ]
@@ -32,7 +32,7 @@ soundex: function [str][
         result: slice result 0 3
     else [
         do.times: 4-size result ->
-            'result ++ `0`
+            'result ++ '0'
     ]
     return result
 ]

diff --git a/examples/rosetta/totient function.art b/examples/rosetta/totient function.art
@@ -20,7 +20,7 @@ loop 1..100000 'i [
     t: totient i
     prime?: 1 = i - t
     if i < 26 [
-        prints ~« Φ(|pad.with:`0` to :string i 2|) = |pad to :string t 2|
+        prints ~« Φ(|pad.with:'0' to :string i 2|) = |pad to :string t 2|
         if prime? -> prints ", prime"
         print ""
     ]

diff --git a/examples/rosetta/unicode strings.art b/examples/rosetta/unicode strings.art
@@ -3,5 +3,5 @@ text: "你好"
 print ["text:" text]
 print ["length:" size text]
 print ["contains string '好'?:" contains? text "好"]
-print ["contains character '平'?:" contains? text `平`]
+print ["contains character '平'?:" contains? text '平']
 print ["text as ascii:" as.ascii text]
diff --git a/examples/rosetta/unprimeable numbers.art b/examples/rosetta/unprimeable numbers.art
@@ -2,7 +2,7 @@ unprimeable?: function [n][
     if prime? n -> return false
     nd: to :string n
     loop.with:'i nd 'prevDigit [
-        loop `0`..`9` 'newDigit [
+        loop '0'..'9' 'newDigit [
             if newDigit <> prevDigit [
                 nd\[i]: newDigit
                 if prime? to :integer nd -> return false