You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
beautiful-racket/beautiful-racket-demo/basic-demo-2/misc.rkt

17 lines
416 B
Racket

8 years ago
#lang br
8 years ago
(require "struct.rkt")
8 years ago
(provide (all-defined-out))
(define (b-rem val) (void))
(define (b-print . vals)
(displayln (string-append* (map ~a vals))))
(define-macro (b-let ID VAL) #'(set! ID VAL))
(define-macro (b-input ID)
8 years ago
#'(b-let ID (let* ([str (read-line)]
[num (string->number (string-trim str))])
(or num str))))
8 years ago
(define (b-end) (raise (end-program-signal)))