全部新建

注册

登录

kapunta

加入于 1757271518

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 / 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: 27ms⋅

中文