blob: 4fe754ed1c32f66aa8d1709a4e6240a09b1d0d5b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#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 rf)
(newline)
(display (add rf rf))))
|
