's Avatar

kapunta

Připojeno 10 months ago

kapunta's Avatar

kapunta / bf.nova

0 Lajky
0 Forky
1 Soubory
Naposledy aktivní 6 months ago
1 |# Brainfuck
2
3 the brackets are written as { } because of the January syntax.
4
5 output is stored in :output: as bits.
6
7 the input operator is not implemented.
8
9 #|
kapunta's Avatar

kapunta / rps.nova

0 Lajky
0 Forky
1 Soubory
Naposledy aktivní 7 months ago
1 |- rock paper scissors -|
2
3 || :i have: paper
4 :you have: scissors
5 :let's play:
6
7 || :beats: rock scissors
8 :beats: scissors paper
9 :beats: paper rock
kapunta's Avatar

kapunta / Thue.Mod

0 Lajky
0 Forky
1 Soubory
Naposledy aktivní 10 months ago
Thue for Oberon
1 MODULE Thue;
2 IMPORT Texts, Oberon;
3
4 CONST MaxB = 10000;
5 MaxRules = 1000;
6
7 VAR W: Texts.Writer;
8 B: ARRAY MaxB OF CHAR;
9 S, NS, NR: INTEGER;
10 L, R: ARRAY MaxRules OF RECORD s, n: INTEGER END;
kapunta's Avatar

kapunta / thue.4

0 Lajky
0 Forky
1 Soubory
Naposledy aktivní 10 months ago
1 ( Thue interpreter for pForth
2 07.09.2025 )
3
4 0 value B 0 value L
5 10000 constant maxlen
6
7 : >B ( i -- a ) B + ;
8 ( : line here dup to B maxlen accept to L ; )
9 : B. B L type cr ;
Novější Starší

Vytvořeno pomocí Opengist ⋅ Load: 57ms⋅

Čeština