CuteInterpreter is a Scheme interpreter similar to Racket
CuteInterpreter requires Python.
- Just run
$ python CuteInterpreter.py( car ' ( 2 3 4 ) )
( cdr ' ( 2 3 4 ) )
( cons ' ( 2 3 ) ' ( 4 5 6 ) )
( null? ' ( )
( atom? ' a )
( atom? ' ( ) )
( eq? 3 3 )
( eq? ' a ' a )
( car ( cdr ' ( 2 3 4 ) )
( cdr ' ( 3 4 5 ) ) )
( cons ( car ( cdr ' ( 2 3 4 ) ) ) ( cdr ' ( 3 4 5 ) ) )
( + 1 2 )
( - ( + 1 2 ) 4 )
( > 1 5 )
( cond ( ( null? ' ( 1 2 3 ) ) 1 ) ( ( > 100 10 ) 2 ) ( #T 3 ) )
( ( lambda ( x ) ( + x 1 ) ) 2 )
( define plus1 ( lambda ( x ) ( + x 1 ) ) )
( plus1 3 )
( define plus2 ( lambda ( x ) ( + ( plus1 x ) 1 ) ) )
( plus2 100 )
( define cube ( lambda ( n ) ( define sqrt ( lambda ( n ) ( * n n ) ) ) ( * ( sqrt n ) n ) ) )
( cube 10 )
( define lastitem ( lambda ( ls ) ( cond ( ( null? ( cdr ls ) ) ( car ls ) ) ( #T ( lastitem ( cdr ls ) ) ) ) ) )
( lastitem ' ( 1 2 3 4 5 ) )
( define a 10 )
( define scope ( lambda ( x ) ( define test1 ( lambda ( x ) ( define test2 ( lambda ( x ) ( + a x ) ) ) ( + ( test2 x ) x ) ) ) ( + ( test1 x ) x ) ) )
( scope 5 )
( define fact ( lambda ( x ) ( cond ( ( < x 1 ) 1 ) ( #T ( * ( fact ( - x 1 ) ) x ) ) ) ) )
( fact 4 )
( define length ( lambda ( ls ) ( cond ( ( null? ls ) 0 ) ( #T ( + 1 ( length ( cdr ls ) ) ) ) ) ) )
( length ' ( a b c ) )
( define sum ( lambda ( ls ) ( cond ( ( null? ls ) 0 ) ( #T ( + ( car ls ) ( sum ( cdr ls ) ) ) ) ) ) )
( sum ' ( 3 8 6 )
( define pow5 ( lambda ( x ) ( define sqrt ( lambda ( x ) ( * x x ) ) ) ( define cube ( lambda ( x ) ( * x ( * x x ) ) ) ) ( * ( sqrt x ) ( cube x ) ) ) )
( pow5 2 )