Packages

horatio

0.2.0-rc1
0.2.0-rc1

The rational and most trusted friend of the tragic hero, Floating Point (rational numbers in LFE)

Current section

Files

Jump to
Readme
1 Version
0 Dependencies
0 Dependants
Files
Activity
horatio src horatio-arith.lfe
Raw

src/horatio-arith.lfe 

(defmodule horatio-arith

  (export (add 2)

          (sub 2)

          (mult 2)

          (div 2)))



(include-lib "horatio/include/data-types.lfe")



(defun add

  (((match-ratio numer num-a denom den-a)

    (match-ratio numer num-b denom den-b))

   (ratio:normalize

     (ratio:new (+ (* num-a den-b) (* den-a num-b))

                   (* den-a den-b)))))



(defun sub

  (((match-ratio numer num-a denom den-a)

    (match-ratio numer num-b denom den-b))

   (ratio:normalize

     (ratio:new (- (* num-a den-b) (* den-a num-b))

                   (* den-a den-b)))))



(defun mult

  (((match-ratio numer num-a denom den-a)

    (match-ratio numer num-b denom den-b))

   (ratio:normalize

     (ratio:new (* num-a num-b)

                (* den-a den-b)))))



(defun div

  (((match-ratio numer num-a denom den-a)

    (match-ratio numer num-b denom den-b))

   (ratio:normalize

     (ratio:new (* num-a den-b)

                (* den-a num-b)))))