Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,5 @@
0→A
While 1
A++
Disp A▶Dec,i
End!If A^6

View file

@ -0,0 +1,7 @@
0 => int value;
do
{
value++;
<<<value>>>;
}
while(value % 6 != 0);

View file

@ -0,0 +1,4 @@
v = 0
do
console.log ++v
while v % 6

View file

@ -0,0 +1,5 @@
A=0
REPEAT
A=A+1
PRINT(A)
UNTIL A MOD 6=0 !UNTIL A-6*INT(A/6)=0 for C-64

View file

@ -0,0 +1,9 @@
' FB 1.05. 0 Win64
Dim i As Integer = 0
Do
i += 1
Print i; " ";
Loop While i Mod 6 <> 0
Print
Sleep

View file

@ -0,0 +1,8 @@
include "ConsoleWindow"
dim as long i
do
i++
print i
until ( i mod 6 == 0 )

View file

@ -0,0 +1,8 @@
LOCAL n := 0
DO WHILE .T.
? ++n
IF n % 6 == 0
EXIT
ENDIF
ENDDO

View file

@ -0,0 +1,5 @@
local(x = 0)
while(#x % 6 > 0 || #x == 0) => {^
++#x
'\r' // for formatting
^}

View file

@ -0,0 +1,6 @@
i = 0
repeat while TRUE
i = i+1
put i
if i mod 6 = 0 then exit repeat
end

View file

@ -0,0 +1,4 @@
repeat while n mod 6 is not 0 or n is 0
add 1 to n
put n
end repeat

View file

@ -0,0 +1,3 @@
stuzzica
... # loop body
e brematura anche, se <expr> # exit if <expr> is false

View file

@ -0,0 +1,9 @@
template doWhile(a: expr, b: stmt): stmt =
b
while a:
b
var val = 1
doWhile val mod 6 != 0:
val += 1
echo val

View file

@ -0,0 +1 @@
0 doWhile: [ 1+ dup . dup 6 rem 0 <> ] drop

View file

@ -0,0 +1,5 @@
var i = 0;
do {
i = i::inc;
printf("%i\n", i);
} while (i%6 != 0);

View file

@ -0,0 +1,6 @@
integer x = 0
while 1 do
x += 1
?x
if mod(x,6)=0 then exit end if
end while

View file

@ -0,0 +1,5 @@
n = 0
While True
n++ See n + nl
if n % 6 = 0 exit ok
end

View file

@ -0,0 +1,4 @@
var value = 0;
do {
say ++value;
} while (value % 6);

View file

@ -0,0 +1,4 @@
var i = 0;
do {
print(++i);
} while (i % 6 != 0);

View file

@ -0,0 +1,5 @@
var val = 0
repeat {
val++
print(val)
} while val % 6 != 0

View file

@ -0,0 +1,5 @@
var val = 0
do {
val++
println(val)
} while val % 6 != 0

View file

@ -0,0 +1,4 @@
# Perform the action, then check the condition, etc
def do_while( action; condition ):
def w: action | if (condition | not) then empty else ., w end;
w;

View file

@ -0,0 +1 @@
0 | do_while( .+1; . % 6 != 0 )