Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon.

Pages: 1-

pseudo-lisp interpreter in as3

Name: Anonymous 2013-05-12 23:23

http://54.245.123.189/ScrapePlayer/

it's been my autistic nikita-esque side project for a while

It's also a web scraper and music streamer as well

Name: Anonymous 2013-05-12 23:24

fibs


(nop
    (let a 1)
    (let b 1)
    (let to 15)
    (let i 1)
    (print 0 1 1)
    (let fibs
        (par nop
            (par let sum (par + a b))
            (par print sum)
            (par let a b)
            (par let b sum)
            (par let i (par + i 1))
            (par ifeval (par neq i to) fibs)
        )
    )
    (eval fibs)
)

Name: Anonymous 2013-05-12 23:29

>>2
lrn2symta


(to remove-sioc xs ; removes symta indentation of code
  ! p = position-if (! fn x :> find x '("|" "=" "=>" ":") :test 'equal)
                    xs
  ! unless p :> return-from remove-sioc xs
  ! sym = elt xs p
  ! pref = subseq xs 0 p
  ! xs = subseq xs p (length xs)
  ! body = cdr xs
  ! zs = nil
  ! when equal sym "=>" :> return-from remove-sioc (remove-sioc `("to" ,@pref ":" ,@body))
  ! when equal sym "=" :> return-from remove-sioc (remove-sioc `("my" ,@pref ":" ,@body))
  ! when equal sym ":"
  ! ! unless pref :> setf pref '(:void)
  ! ! r = remove-sioc `(,(car pref) ("@" ("list" ,@(cdr pref))) ,(remove-sioc body))
  ! ! return-from remove-sioc r
  ! while xs
  ! ! pop xs
  ! ! ys = nil
  ! ! while equal (car xs) "|" :> push (pop xs) ys
  ! ! while and xs (not (equal (car xs) "|")) :> push (pop xs) ys
  ! ! ys = nreverse ys
  ! ! if equal (car ys) "|"
  ! ! ! push (append (pop zs) ys) zs
  ! ! ! push ys zs
  ! xs = map xs (nreverse zs) :> remove-sioc xs
  ! when pref :> setf xs `(,(car pref) ("@" ("list" ,@(cdr pref))) ,@xs)
  ! xs)

Name: Anonymous 2013-05-13 4:19

>>3
Fine, I'll admit it is at least a more consistent and visible indentation system than FIOC, but I'll never get over all the english.

Name: Anonymous 2013-05-13 7:38

UVB-76, UVB-76, 93, 882, NAIMINA, 74, 14, 35, 74, 9, 3, 8, 8, 2, Nikolai, Anna, Ivan, Mikhail, Ivan, Nikolai, Anna, 7, 4, 1, 4, 3, 5, 7, 4.
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -