's Avatar

kapunta

Unido 3 months ago

kapunta's Avatar

kapunta / Thue.Mod

0 gustos
0 bifurcaciones
1 archivos
Última actividad 2 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 gustos
0 bifurcaciones
1 archivos
Última actividad 3 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 ;
Siguiente Anterior

Desarrollado por Opengist ⋅ Load: 27ms⋅

Español