's Avatar

kapunta

加入 1757271518

kapunta's Avatar

kapunta / Thue.Mod

0 喜歡
0 分支
1 檔案
最後活躍 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 喜歡
0 分支
1 檔案
最後活躍 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 ;
上一頁 下一頁

由 Opengist 提供支持 ⋅ Load: 26ms⋅

繁體中文