September 2017 Update

This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions

View file

@ -1,5 +1,6 @@
10 FOR i=1 TO 10
20 PRINT i;
30 IF i=10 THEN GOTO 50
10 LET I=1
20 PRINT I;
30 IF I=10 THEN GOTO 70
40 PRINT ", ";
50 NEXT i
50 LET I=I+1
60 GOTO 20

View file

@ -0,0 +1,5 @@
10 FOR i=1 TO 10
20 PRINT i;
30 IF i=10 THEN GOTO 50
40 PRINT ", ";
50 NEXT i

View file

@ -0,0 +1,8 @@
while (1) {
print ++i
if (i == 10) {
print "\n"
break
}
print ", "
}

View file

@ -0,0 +1,41 @@
[ N and a half times loop
=======================
A program for the EDSAC
Works with Initial Orders 2 ]
T56K
GK
O16@
[ 1 ] T24@
A25@
A18@
U25@
S23@
E11@
O25@
O19@
O20@
G1@
[ 11 ] O18@
O17@
O21@
O22@
ZF
[ 16 ] #F
[ 17 ] PF
[ 18 ] QF
[ 19 ] NF
[ 20 ] !F
[ 21 ] @F
[ 22 ] &F
[ 23 ] JF
[ 24 ] PF
[ 25 ] PF
EZPF

View file

@ -0,0 +1,7 @@
for value = 1 to 10
formiddle
>> value
>> ", "
end
forlast: > value
end

View file

@ -0,0 +1,9 @@
Public Sub Main()
Dim siLoop As Short
For siLoop = 1 To 10
Print siLoop;
If siLoop <> 10 Then Print ", ";
Next
End

View file

@ -0,0 +1,5 @@
var out = System.out
for(i in 1..10) {
if(i > 1) out.print(", ")
out.print(i)
}

View file

@ -0,0 +1,7 @@
U8 i, max = 10;
for (i = 1; i <= max; i++) {
Print("%d", i);
if (i == max) break;
Print(", ");
}
Print("\n");

View file

@ -0,0 +1,8 @@
// version 1.0.6
fun main(args: Array<String>) {
for (i in 1 .. 10) {
print(i)
if (i < 10) print(", ")
}
}

View file

@ -1 +0,0 @@
<@ FORLITLIT>10|<@ SAYPOSFOR>...</@><@ ABF>,</@></@>

View file

@ -0,0 +1,5 @@
fn main() {
for i in 1..11 {
print!("{}{}", i, if i == 10 {"\n"} else {", "});
}
}

View file

@ -0,0 +1,4 @@
1 to: 10 do: [:n |
Transcript show: n asString.
n < 10 ifTrue: [ Transcript show: ', ' ]
]

View file

@ -0,0 +1,9 @@
forv i=1/10 {
di `i' _continue
if `i'<10 {
di ", " _continue
}
else {
di
}
}

View file

@ -0,0 +1,10 @@
mata
for (i=1; i<=10; i++) {
printf("%f",i)
if (i<10) {
printf(", ")
} else {
printf("\n")
}
}
end

View file

@ -0,0 +1 @@
foreach n in ([1..10]){ print(n); if (n!=10) print(",") }

View file

@ -0,0 +1 @@
[1..10].pump(Console.print, Void.Drop, T(Void.Write,",",Void.Drop));

View file

@ -0,0 +1 @@
[1..10].pump(Console.print, Void.Drop, fcn(n){ String(",",n) });