's Avatar

kapunta

Unito 1757271518

kapunta's Avatar

kapunta / Thue.Mod

0 mi piace
0 forks
1 files
Ultima volta attivo 1758126370
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 mi piace
0 forks
1 files
Ultima volta attivo 1757278218
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 ;
Più nuovi Più vecchi

Creato da Opengist ⋅ Load: 37ms⋅

Italiano