Data update
This commit is contained in:
parent
72eb4943cb
commit
4d5544505c
2347 changed files with 62432 additions and 16731 deletions
7
Task/Loops-Infinite/8080-Assembly/loops-infinite.8080
Normal file
7
Task/Loops-Infinite/8080-Assembly/loops-infinite.8080
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
puts equ 9
|
||||
org 100h
|
||||
spam: mvi c,puts
|
||||
lxi d,msg
|
||||
call 5
|
||||
jmp spam
|
||||
msg: db 'SPAM',13,10,'$'
|
||||
1
Task/Loops-Infinite/APL/loops-infinite.apl
Normal file
1
Task/Loops-Infinite/APL/loops-infinite.apl
Normal file
|
|
@ -0,0 +1 @@
|
|||
{⎕←'SPAM'}⍣(0⍨)''
|
||||
7
Task/Loops-Infinite/Ballerina/loops-infinite.ballerina
Normal file
7
Task/Loops-Infinite/Ballerina/loops-infinite.ballerina
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
import ballerina/io;
|
||||
|
||||
public function main() {
|
||||
while true {
|
||||
io:println("SPAM");
|
||||
}
|
||||
}
|
||||
|
|
@ -1 +1 @@
|
|||
]F.(echo@'SPAM')0
|
||||
echo@'SPAM'F.] ''
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
smoutput bind 'SPAM'^:1e99 ''
|
||||
echo@'SPAM'^:1e99 ''
|
||||
|
|
|
|||
1
Task/Loops-Infinite/J/loops-infinite-3.j
Normal file
1
Task/Loops-Infinite/J/loops-infinite-3.j
Normal file
|
|
@ -0,0 +1 @@
|
|||
echo@'SPAM'^:1:^:_. ''
|
||||
1
Task/Loops-Infinite/K/loops-infinite-1.k
Normal file
1
Task/Loops-Infinite/K/loops-infinite-1.k
Normal file
|
|
@ -0,0 +1 @@
|
|||
{1}{`0:"SPAM"}/""
|
||||
1
Task/Loops-Infinite/K/loops-infinite-2.k
Normal file
1
Task/Loops-Infinite/K/loops-infinite-2.k
Normal file
|
|
@ -0,0 +1 @@
|
|||
while[1; `0:"SPAM"]
|
||||
|
|
@ -1 +0,0 @@
|
|||
while[1; `0:"SPAM\n"]
|
||||
2
Task/Loops-Infinite/Miranda/loops-infinite.miranda
Normal file
2
Task/Loops-Infinite/Miranda/loops-infinite.miranda
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
main :: [sys_message]
|
||||
main = repeat (Stdout "SPAM\n")
|
||||
1
Task/Loops-Infinite/Refal/loops-infinite.refal
Normal file
1
Task/Loops-Infinite/Refal/loops-infinite.refal
Normal file
|
|
@ -0,0 +1 @@
|
|||
$ENTRY Go { = <Prout 'SPAM'> <Go>; };
|
||||
5
Task/Loops-Infinite/SETL/loops-infinite.setl
Normal file
5
Task/Loops-Infinite/SETL/loops-infinite.setl
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
program spam;
|
||||
loop do
|
||||
print("SPAM");
|
||||
end loop;
|
||||
end program;
|
||||
|
|
@ -1,9 +1,11 @@
|
|||
|10 @Console/vector $2 &read $5 &type $1 &write $1 &error $1
|
||||
|
||||
|0100
|
||||
&l ;SPAM <print-str> !&l
|
||||
&loop ;SPAM <print-str> !&loop
|
||||
|
||||
@<print-str> ( str* -- )
|
||||
&while ( -- )
|
||||
LDAk #18 DEO
|
||||
&while
|
||||
LDAk .Console/write DEO
|
||||
INC2 LDAk ?&while
|
||||
POP2 JMP2r
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue