65 lines
840 B
Plaintext
65 lines
840 B
Plaintext
-- Assume double is a language construct that doubles a number
|
|
|
|
State {
|
|
Tc = ?
|
|
Ctx = nil
|
|
C = double (call/cc k . suc k)
|
|
E = []
|
|
K = halt
|
|
}
|
|
|
|
State {
|
|
Tc = ?
|
|
Ctx = nil
|
|
C =
|
|
E = [x = call/cc k . suc k]
|
|
K = halt
|
|
}
|
|
|
|
State {
|
|
Tc = ?
|
|
Ctx =
|
|
}
|
|
|
|
---
|
|
|
|
k : String -> N
|
|
left part : (String -> N) -> Bool
|
|
entire thing : (kont String -> N) -> Bool
|
|
|
|
|
|
call/cc : ((String -> N) -> Bool)
|
|
|
|
len (call/cc k . if k "hello" is even then true else false)
|
|
(k . if k "hello" is even then true else false) (\x . len x)
|
|
((\x . 3 + x) 2 + (\x . 3 + x) 4)
|
|
|
|
---
|
|
|
|
(call/cc \k . k 3)
|
|
|
|
done 3
|
|
|
|
---
|
|
|
|
3 + (call/cc \k . abort (k 2))
|
|
|
|
abort : _|_ -> A
|
|
k : Nat -> _|_
|
|
k n = (yield 3 + n); exit
|
|
k 2 : _|_
|
|
abort (k 2) : A
|
|
\k . abort (k 2) : (Nat -> _|_) -> A
|
|
(call/cc \k . abort (k 2)) : Nat
|
|
|
|
---
|
|
|
|
cont (\n . 3 + n)
|
|
|
|
--
|
|
|
|
apply-kont (Kont String Nat) Nat
|
|
|
|
--
|
|
|