langreiter.com plain, simple: e7-notes

LANGREITER.COM plain, simple

START

INDEX

e7-notes

CREATED BY chris • LAST EDITED BY chris 6383 days AGO

(import py)
(def u2 (py.import 'urllib2))
(def (http-get url) (let* ((c (u2.urlopen url)) (p (c.read))) (c.close) (py.toe7 p)))

(py.import 'objc)
(def AppKit (py.import 'AppKit))
(((AppKit.NSSound.alloc).initWithContentsOfFile_byReference_ "/System/Library/Sounds/Basso.aiff" 1).play)

bugs

(def (fac x) (if (= x 1) 1 (* x (fac (- x 1)))))
(fac 2000) # segfaults

(import path)
(path.files ".") # segfaults

(set a (vector))
a[1] # bus error

(eval #(1 2 3)) # bus error
(eval ''()) # segfaults

issues

- osx: term.app: disable "delete key sends backspace" for backspace to work (thanks gavin!)
- missing unquote?

wanna-haves

repl: output cut-off
repl: should work with standard keys ootb (backspace, alt-left/right; might be an osx issue)

fibench

(def (fib x) (if (< x 2) x (+ (fib (- x 1)) (fib (- x 2)))))
(fib 32)
# real: ~15sec

better?

# iota: vector of asc ints
(def (iota n) (let ((v (vector size:n fill:0))) (begin (for i in n (set v[i] i) v))))
(def (iota n) (vector init:(range n)))
(def (fviota x) (fvlinear x 0 x)) # but sum takes 7secs ...

build

# to use fink pcre and gmm on osx
export CPPFLAGS=-I/sw/include/
export LDFLAGS=-L/sw/lib/