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-io.lfe
Raw

src/horatio-io.lfe 

(defmodule horatio-io

  (export (print 1)))



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



;; Pretty-print:

;;

;; > (complex:print c1)

;; 1+2i

;; ok

;; > (complex:print c2)

;; 3-5i

;; ok



(defun print

  (((= (match-ratio) r))

   (io:format (++ (ratio:->str r) "~n")))

  ((x)

   (io:format "~p~n" (list x))))



(defun pp (r)

  (print r))