add Ascend/Descend nodes to AST,Parser&Lexer

This commit is contained in:
Michael Sippel 2024-09-30 11:27:35 +02:00
parent 08f592ad60
commit 7cc47f05c5
Signed by: senvas
GPG key ID: F96CF119C34B64A6
5 changed files with 93 additions and 6 deletions
lt-stdlib

View file

@ -25,11 +25,11 @@ export {
{bp:; bq:;}: ~ <Ratio ~ _2^64 ~ machine.UInt64> ;
} ↦ {
let l = lcm aq bq;
let as = i/ l aq;
let bs = i/ l bq;
let a = i/ l aq;
let b = i/ l bq;
i* aq as;
i+ (i* ap as) (i* bp bs);
i* aq a;
i+ (i* ap a) (i* bp b);
};
let ratio-mul = λ{