File: foo-bar-1.scm

package info (click to toggle)
mit-scheme 12.1-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 208,300 kB
  • sloc: lisp: 781,881; xml: 425,435; ansic: 86,059; sh: 10,135; makefile: 2,501; asm: 2,121; csh: 1,143
file content (7 lines) | stat: -rw-r--r-- 129 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
 
(define (bar-product bar)
  (* (bar-v1 bar)
     (bar-v2 bar)))

(define (bar-quotient bar)
  (/ (bar-v1 bar)
     (bar-v2 bar)))