TabP

From Esolang
Jump to navigation Jump to search

Fell into hell of () ? Tab is coming to "save" you.
Tabp is Lisp with tabs (or spaces) instead of ().

(a b c d e)

to

a
  b
  c
  d
  e

and

`(a b c)

to

`
  a
  b
  c

example

(if (> 1 2) "weird" "sane")
if
  >
    1
    2
  "weird"
  "sane"

calculate sqrt (from SICP) Lisp

(define (average x y) (/ (+ x y) 2))
(define (improve guess x) (average guess (/ x guess)))
(define (sqrt-iter guess x)(if (< (abs (- (square guess) x)) 0.001) guess (sqrt-iter (improve guess x) x) ))

ofc you can't read ()

Tabp

 define
   average
     x
     y
   /
     +
       x
       y
     2
 define 
   improve
     guess
     x
   average
     guess
     /
       x
       guess
 define
   sqrt-iter
     guess
     x
   if
     <
       abs
         -
           square
             guess
           x
       0.001
     guess
     sqrt-iter
       improve
         guess
         x
       x
 define
   sqrt
     x
   sqrt-iter
     1
     x
 sqrt
   2

NO () ANYMORE (