Brazilian numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 251: / Line 251: @@
 First 20 prime Brazilian numbers:
 13  31  43  73  127  157  211  241  307  421  463  601  757  1093  1123  1483  1723  2551  2801"</lang>
+=={{header|Arturo}}==
+<lang rebol>brazilian?: function [n][
+    if n < 7 -> return false
+    if zero? and n 1 -> return true
+    loop 2..n-2 'b [
+        if 1 = size unique digits.base:b n ->
+            return true
+    ]
+    return false
+]
+printFirstByRule: function [rule,title][
+    print ~"First 20 |title|brazilian numbers:"
+    i: 7
+    found: new []
+    while [20 > size found][
+        if brazilian? i ->
+            'found ++ i
+        do.import rule
+    ]
+    print found
+    print ""
+]
+printFirstByRule [i: i+1] ""
+printFirstByRule [i: i+2] "odd "
+printFirstByRule [i: i+2, while [not? prime? i] -> i: i+2] "prime "</lang>
+{{out}}
+<pre>First 20 brazilian numbers:
+8 10 12 13 14 15 16 18 20 21 22 24 26 27 28 30 31 32 33
+First 20 odd brazilian numbers:
+13 15 21 27 31 33 35 39 43 45 51 55 57 63 65 69 73 75 77
+First 20 prime brazilian numbers:
+13 31 43 73 127 157 211 241 307 421 463 601 757 1093 1123 1483 1723 2551 2801</pre>
 =={{header|AWK}}==