16 lines
328 B
Racket
16 lines
328 B
Racket
#lang racket
|
|
|
|
(require "test-util.rkt")
|
|
(require "rint.rkt")
|
|
|
|
(define eight (Int 8))
|
|
(define rd (Prim 'read '()))
|
|
(define neg-eight (Prim '- (list eight)))
|
|
(define ast1.1 (Prim '+ (list rd neg-eight)))
|
|
(define program (Program '() ast1.1))
|
|
|
|
(test-eq -5
|
|
(with-input-from-num-list '(3)
|
|
(lambda () (interp-RInt program))))
|
|
|