diff options
| author | Camil Staps | 2017-07-18 20:55:08 +0000 |
|---|---|---|
| committer | Camil Staps | 2017-07-18 20:55:08 +0000 |
| commit | 47d9abb9652d7ad1a7896d3353bdeb0904d9827c (patch) | |
| tree | 04fffd26d07422b266daf89452bd80db764c5567 /ABC/Machine/BStack.icl | |
| parent | Added divI (diff) | |
Add remI
Diffstat (limited to 'ABC/Machine/BStack.icl')
| -rw-r--r-- | ABC/Machine/BStack.icl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ABC/Machine/BStack.icl b/ABC/Machine/BStack.icl index 70a1f1a..70007fd 100644 --- a/ABC/Machine/BStack.icl +++ b/ABC/Machine/BStack.icl @@ -102,6 +102,10 @@ bs_mulI :: BStack -> BStack bs_mulI [Int m:Int n:s] = bs_pushI (m * n) s bs_mulI _ = abortn "bs_mulI: no integers" +bs_remI :: BStack -> BStack +bs_remI [Int m:Int n:s] = bs_pushI (m rem n) s +bs_remI _ = abortn "bs_remI: no integers" + bs_subI :: BStack -> BStack bs_subI [Int m:Int n:s] = bs_pushI (m - n) s bs_subI _ = abortn "bs_subI: no integers" |