add Ascend/Descend nodes to AST,Parser&Lexer
This commit is contained in:
parent
08f592ad60
commit
7cc47f05c5
5 changed files with 93 additions and 6 deletions
lt-stdlib
|
@ -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 = λ{
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue