suzanne.soy/beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

improve

Browse Source
This commit is contained in:
Matthew Butterick 2016-04-09 14:55:09 -07:00
parent e0ab0660f6
commit 7aaa4cd3df
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
br-bf/main.rkt
View File

@ -45,7 +45,7 @@
;; bf implementation ;; bf implementation
;; state: one vector, one pointer ;; state: one vector, one pointer
(define bf-vector (make-vector 1000 0)) (define bf-vector (make-vector 30000 0))
(define bf-pointer 0) (define bf-pointer 0)
;; gets and sets ;; gets and sets

2
br-bf/tokenizer.rkt
View File

@ -14,6 +14,8 @@
;; todo: try adding support for line comments ;; todo: try adding support for line comments
#;[(:: "#" (:* (complement "\n")) "\n") (token 'comment #:skip? #t)] #;[(:: "#" (:* (complement "\n")) "\n") (token 'comment #:skip? #t)]
[whitespace (token 'white #:skip? #t)] [whitespace (token 'white #:skip? #t)]
;; treat other characters as comments
[(char-range #\nul #\~) (token 'ascii #:skip? #t)]
[(eof) eof])) [(eof) eof]))
(define (next-token) (get-token ip)) (define (next-token) (get-token ip))