blob: a4067d1269e7b295e40406868af80c1e1b1a7b78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#lang racket
(require "../../shared/data-directed-programming.rkt")
(require "./83/install.rkt")
;; arithmetic package
(define get-put-apply (install-arithmetic-package))
(define get (car get-put-apply))
(define put (cadr get-put-apply))
(define apply-fn (caddr get-put-apply))
;; something
;; (define p1 (make-polynomial 'x (sparse-termlist
;; (term 2 1) (term 0 1)))
;; (define p2 (make-polynomial 'x (sparse-termlist
;; (term 3 1) (term 0 1))))
;; (define rf (make-rat p2 p1))
((lambda ()
(newline)
(display (add 1 (make-rat 2 1)))))
;; (newline)
;; (display rf)
;; (newline)
;; (display (add rf rf))))
|
