File: extnum.l

package info (click to toggle)
euslisp 9.32%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 54,988 kB
  • sloc: ansic: 41,639; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (11 lines) | stat: -rw-r--r-- 178 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
(defmethod ratio
 (:init (num denom)
  (setq numerator num
        denominator denom)
  self))

(defmethod complex
 (:init (re im)
  (setq real re
        imaginary im)
  self))