aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Quine/Odin/quine.odin Normal file
View file

@ -0,0 +1,16 @@
package quine
import "core:fmt"
main :: proc() {
q := `package quine
import "core:fmt"
main :: proc() {{
q := %c%s%c
fmt.printf(q, 96, q, 96)
}
`
fmt.printf(q, 96, q, 96)
}

1
Task/Quine/PascalABC.NET/quine.pas Normal file
View file

@ -0,0 +1 @@
## var a:='## var a:='';print(2*a[:12]+2*a[11:])';print(2*a[:12]+2*a[11:])

9
Task/Quine/Prog8/quine.prog8 Normal file
View file

@ -0,0 +1,9 @@
%import textio
main {
sub start() { str[] s = [
"%import textio","main {","sub start() { str[] s = [","]","ubyte i","for i in 0 to 2 { txt.print(s[i]) txt.nl() }","for i in 0 to 8 { txt.chrout(34) txt.print(s[i]) txt.chrout(34) if i<8 txt.chrout(44) }","for i in 3 to 8 { txt.print(s[i]) txt.nl() } }","}"]
ubyte i
for i in 0 to 2 { txt.print(s[i]) txt.nl() }
for i in 0 to 8 { txt.chrout(34) txt.print(s[i]) txt.chrout(34) if i<8 txt.chrout(44) }
for i in 3 to 8 { txt.print(s[i]) txt.nl() } }
}

16
Task/Quine/Uxntal/quine.uxnatl Normal file
View file

@ -0,0 +1,16 @@
|100
;q DUP2 print quine
BRK
@quine
LDAk DUP #04 SFT DUP #0a LTH ?{ #27 ADD } #30 ADD #18 DEO
#0f AND DUP #0a LTH ?{ #27 ADD } #30 ADD #18 DEO #2018 DEO
INC2 LDAk ?quine POP2
#3018 DEO #3018 DEO #0a18 DEO
JMP2r
@print
LDAk #18 DEO INC2 LDAk ?print POP2
JMP2r
@q 7c 31 30 30 0a 09 3b 71 20 44 55 50 32 20 70 72 69 6e 74 20 71 75 69 6e 65 0a 42 52 4b 0a 0a 40 71 75 69 6e 65 0a 09 4c 44 41 6b 20 44 55 50 20 23 30 34 20 53 46 54 20 44 55 50 20 23 30 61 20 4c 54 48 20 3f 7b 20 23 32 37 20 41 44 44 20 7d 20 23 33 30 20 41 44 44 20 23 31 38 20 44 45 4f 0a 09 23 30 66 20 41 4e 44 20 44 55 50 20 23 30 61 20 4c 54 48 20 3f 7b 20 23 32 37 20 41 44 44 20 7d 20 23 33 30 20 41 44 44 20 23 31 38 20 44 45 4f 20 23 32 30 31 38 20 44 45 4f 0a 09 49 4e 43 32 20 4c 44 41 6b 20 3f 71 75 69 6e 65 20 50 4f 50 32 0a 09 23 33 30 31 38 20 44 45 4f 20 23 33 30 31 38 20 44 45 4f 20 23 30 61 31 38 20 44 45 4f 0a 4a 4d 50 32 72 0a 0a 40 70 72 69 6e 74 0a 09 4c 44 41 6b 20 23 31 38 20 44 45 4f 20 49 4e 43 32 20 4c 44 41 6b 20 3f 70 72 69 6e 74 20 50 4f 50 32 0a 4a 4d 50 32 72 0a 0a 40 71 20 00