Casting out nines: Difference between revisions
Added Easylang
(Added various BASIC dialects (BASIC256, Chipmunk Basic,Gambas, GW-BASIC, MSX Basic, PureBasic, QBasic, Run BASIC, True BASIC, XBasic and Yabasic)) |
(Added Easylang) |
||
Line 738:
240, 241, 256, 257, 272, 273, 288]</pre>
=={{header|EasyLang}}==
{{trans|AWK}}
<syntaxhighlight>
base = 10
for k = 1 to base * base - 1
c1 += 1
if k mod (base - 1) = (k * k) mod (base - 1)
c2 += 1
write k & " "
.
.
print "Trying " & c2 & " numbers instead of " & c1 & " numbers saves " & 100 - 100 * c2 / c1
</syntaxhighlight>
=={{header|Free Pascal}}==
Line 794 ⟶ 808:
Trying 223 numbers instead of 1000 saves 77.70,%.
</pre>
=={{header|FreeBASIC}}==
| |||