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

BBcode practise grounds

Name: Anonymous 2007-06-17 16:46 ID:zJT0c10Q

(define(eval exp env)(cond((self-evaluating? exp) exp)((variable? exp)(lookup-variable-value exp env))((quoted? exp)(text-of-quotation exp))((assignment? exp)(eval-assignment exp env))((definition? exp)(eval-definition exp env))((if? exp)(eval-if exp env))((lambda? exp)(make-procedure(lambda-parameters exp)(lambda-body exp)
                         env))((begin? exp)(eval-sequence(begin-actions exp) env))((cond? exp)(eval(cond->if exp) env))((application? exp)(apply(eval(operator exp) env)(list-of-values(operands exp) env)))(else(error "Unknown expression type - EVAL" exp))))

Name: Anonymous 2007-06-17 19:42 ID:zJT0c10Q

(a (b
    c (d e f)
    g
    h))

Name: Anonymous 2007-06-17 19:44 ID:zJT0c10Q

(a (b
    c
    (d e f)
    g
    h))

Name: Anonymous 2007-06-17 19:58 ID:zJT0c10Q

(a (b
    c
     (d e f)
    g
    h))

Name: Anonymous 2007-06-17 20:13 ID:zJT0c10Q

(define factorial
  (lambda(n)
    (if(= n 0) 1
        (* n(factorial(- n 1))))))

Name: Anonymous 2007-06-17 20:17 ID:zJT0c10Q

(define factorial
  (lambda (n)
    (if (= n 0) 1
        (* n (factorial (- n 1))))))

Name: Anonymous 2007-06-17 20:17 ID:zJT0c10Q

(define eval
    (lambda (exp env)
      (cond ((self-evaluating? exp) exp)
            ((variable? exp) (lookup-variable-value exp env))
            ((quoted? exp) (text-of-quotation exp))
            ((assignment? exp) (eval-assignment exp env))
            ((definition? exp) (eval-definition exp env))
            ((if? exp) (eval-if exp env))
            ((lambda? exp)
             (make-procedure (lambda-parameters exp)
                             (lambda-body exp)
                             env))
            ((begin? exp)
             (eval-sequence (begin-actions exp) env))
            ((cond? exp) (eval (cond->if exp) env))
            ((application? exp)
             (apply (eval (operator exp) env)
                    (list-of-values (operands exp) env)))
            (else
             (error "unknown expression type - eval" exp)))))

Name: Anonymous 2007-06-17 20:21 ID:zJT0c10Q

(defun ouroboros (element &aux (ouroboros (cons element nil)))
  (setf (cdr ouroboros) ouroboros) ouroboros)
(a (b
    c
    (d e f)
    g
    h))

Name: Anonymous 2007-06-17 20:26 ID:zJT0c10Q

(defun ouroboros (element &aux (ouroboros (cons element nil)))
  (setf (cdr ouroboros) ouroboros) ouroboros)

(defun insert (element list) (butlast (mapcan (function list) list (ouroboros element))))

(defparameter *paren-prolog* (quote (:/code :b :code "(" :/code :/b :code)))
(defparameter *paren-epilog* (quote (:/code :b :code ")" :/code :/b :code)))
(defparameter *special-newline-value* (cons nil nil))
(defparameter *special-indent-value* (cons nil nil))
(defparameter *lisp-keywords* (quote (block let* return-from catch load-time-value setq eval-when locally symbol-macrolet flet macrolet tagbody function multiple-value-call the go multiple-value-prog1 throw if progn unwind-protect labels progv let quote)))

Name: Anonymous 2007-06-17 20:29 ID:zJT0c10Q

(defun compile-lisp-to-bbcode (file) (bbcode-compile-toplevel (read-from-string (apply (function concatenate) (quote string) (preprocess-indentation (read-file-as-lines file))))))

(defun read-file-as-lines (file) (with-open-file (stream file) (loop for line = (read-line stream nil :eof) until (eq line :eof) collect line)))

(defun preprocess-indentation (list-of-lines)
  (mapcar (lambda (line)
            (let ((spaces
                   (or (mismatch line (make-string (length line) :initial-element #\)) 0)))
              (concatenate (quote string)
                           (apply (function concatenate) (quote string)
                                  (loop repeat spaces collect " #.*special-indent-value* "))
                           line
                           " #.*special-newline-value*")))
          list-of-lines))

Name: Anonymous 2007-06-17 20:31 ID:zJT0c10Q

(defun bbcode-compile-toplevel (expression)
  (bbcode-generate-target-language
   (bbcode-optimize
    (bbcode-cleanup-whitespace
     (append (list :m :code)
             (bbcode-compile expression)
             (list :/code :/m))
     (quote (" " *special-indent-value* *special-newline-value*))))))

Name: Anonymous 2007-06-17 20:32 ID:zJT0c10Q

(defun bbcode-compile (expression)
  (cond ((not (consp expression))
         (let ((name (string-downcase (format nil "~s" expression))))
           (cond ((find expression *lisp-keywords*)
                  (list :/code :i :code name :/code :/i :code))
                 ((or (eq expression *special-newline-value*)
                      (eq expression *special-indent-value*))
                  (list expression))
                 (t (list name)))))
        ((and (listp expression)
              (listp (cdr expression)))
         (append *paren-prolog*
                 (apply (function append)
                        (insert (list " ")
                                (mapcar (function bbcode-compile) expression)))
                 *paren-epilog*))
        (t (append *paren-prolog*
                   (insert " "
                           (append (bbcode-compile (car expression))
                                   (list ".")
                                   (bbcode-compile (cdr expression))))
                   *paren-epilog*))))

Name: Anonymous 2007-06-17 20:33 ID:zJT0c10Q

(defun bbcode-cleanup-whitespace (bbcode-ast whitespaces)
  (let (change-made)
    (labels ((cleanup-helper (bbcode-ast whitespace)
               (cond ((< (length bbcode-ast) 2) bbcode-ast)
                     ((and (equal (first bbcode-ast) whitespace)
                           (find (second bbcode-ast)
                                 (quote (:code :/code :b))))
                      (setf change-made t)
                      (cleanup-helper
                       (list*
                        (second bbcode-ast) whitespace
                        (cddr bbcode-ast))
                       whitespace))
                     (t (cons (car bbcode-ast)
                              (cleanup-helper (cdr bbcode-ast) whitespace))))))
      (loop do (setf change-made nil)
           (loop for whitespace in whitespaces
              do (setf bbcode-ast (cleanup-helper bbcode-ast whitespace)))
         while change-made)
      bbcode-ast)))

Name: Anonymous 2007-06-17 20:35 ID:zJT0c10Q

(defun bbcode-generate-target-language (code)
  (if (not (null code))
      (progn
        (bbcode-generate-target-language
         (cond ((stringp (car code))
                (format t "~a" (car code))
                (cdr code))
               ((eq *special-newline-value* (car code))
                (format t "~%")
                (cdr code))
               ((eq *special-indent-value* (car code))
                (format t " ")
                (if (string= (cadr code) " ") (cddr code) (cdr code)))
               (t (format t "[~a]" (symbol-name (car code)))
                  (cdr code)))))
      (terpri)))

Name: Anonymous 2007-06-17 20:36 ID:zJT0c10Q

ugh bbcode-optimize is too big to post, whatever

Name: Anonymous 2007-06-18 2:44 ID:xAgf3Ta9

>>54
Perhaps you should rewrite it in a three-line Haskell program, then!

Name: Anonymous 2007-06-18 6:06 ID:No128k/f

>>55
ill leave that to you mr epic faggot

Name: Anonymous 2007-06-18 7:26 ID:xAgf3Ta9

>>56
Okay, what should the function do?

Name: Anonymous 2007-06-18 7:33 ID:Heaven

>>57
be awesome and pwn your grandmother

Name: Anonymous 2007-06-18 8:08 ID:UbxogPcV

>>57
given a filename read it in as a lisp expression and print it with optimized BBCode (bold parenthesis and italic language keywords) also with the line endings preserved.

Name: Anonymous 2007-06-18 12:11 ID:xAgf3Ta9

>>59
What in the world does that have to do with optimization?

Name: Anonymous 2007-06-18 12:55 ID:UbxogPcV

>>60
"" → ""

and other more complex optimisations

Name: Anonymous 2007-06-18 13:15 ID:xAgf3Ta9

>>61
"<code></code>" -> ""

i.e. remove empty tags?  Doesn't sound like a good idea to me, BBcode programs can change their output if you remove empty tags.

Name: Anonymous 2007-06-18 13:28 ID:UbxogPcV

>>62
dude I wrote this program and it works, I think I would know.
Also I have 8 years BBCode experience, so don't fucking start

Name: Anonymous 2007-06-18 13:40 ID:xAgf3Ta9

>>63
PLEASE DON'T ENCLOSE ME IN SPOILER TAGS, O EXPERT BBCODE PROGRAMMER !!

Name: Anonymous 2007-06-18 14:27 ID:UbxogPcV

>>64
yeah, cute trick.. I used to do that years ago.
Now ive learned the true skill of minimalist bbcode programming for maximum effect.

Name: Anonymous 2007-06-18 20:54 ID:BhldS2tX

>>13
But do you swallow?

Name: Anonymous 2007-06-19 14:42 ID:coifDlHt

>>55
ךםך

Typical haskell fag.. talks crap but dont WALK!

Name: Anonymous 2007-06-19 15:43 ID:Jd+M8bw/

he swallowes i could know

Name: Anonymous 2007-06-19 17:13 ID:31BmU9qc

>>67
EXPERT UNICODE PROGRAMMER

Name: EXPERT BBCODE PROGRAMMER 2007-06-19 17:43 ID:8610UN40

[quote="Anonymous"]Also I have 8 years BBCode experience, so don't fucking start[/quote]

Well prove it. Oh guess what, you can't, because you're too much of a coward to tell us your name.

Name: Anonymous 2007-06-19 17:56 ID:Heaven

>>70
His name is Robert Paulson.

Name: Anonymous 2007-06-19 18:23 ID:WXKrPbZi

>>70
His name is Robert Paulson

Name: Anonymous 2007-06-19 18:51 ID:ECnpj1gP

>>70
His name is Robert Paulson

Name: Anonymous 2009-01-14 14:02

NO EXCEPTIONS

Name: ​​​​​​​​​​ 2010-09-10 4:34

Name: Anonymous 2010-12-17 1:17

Are you GAY?
Are you a NIGGER?
Are you a GAY NIGGER?

If you answered "Yes" to all of the above questions, then GNAA (GAY NIGGER ASSOCIATION OF AMERICA) might be exactly what you've been looking for!

Name: Anonymous 2010-12-26 23:04

Name: Anonymous 2011-01-08 12:07

                               ▲
                              ▲ ▲
                             ▲   ▲
                            ▲ ▲ ▲ ▲

Name: Anonymous 2011-01-08 12:07

                               ▲
                              ▲ ▲
                             ▲   ▲
                            ▲ ▲ ▲ ▲

Name: Anonymous 2011-01-08 14:55

[font=Courier]Text[/font]
Newer Posts
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 -