RCSNUSP/PicoLisp: Difference between revisions
m
Fixed syntax highlighting.
(add code.) |
m (Fixed syntax highlighting.) |
||
| (2 intermediate revisions by one other user not shown) | |||
Line 1:
'''snusp.l'''
<
(de snusp (L)
Line 88:
(in (car (argv)) (split (till) "^J")) ) )
(bye)</
'''99.snusp'''
<pre>
/=!/===========!/==+++++++++# +9
| | /=!/=====@/==@@@+@+++++# +48 (itoa)
| | | | /==!/==@@@@=++++# +32 (space)
| | | | | \==@@++\!+++++++++++++\!+++++\
9 9 '9''9' space 'b' 'o' 't'
$@/>@/>@/>@/>@/>========@/>============@/>====@/>++++++++++ \n setup
/====================================loop=====>\!=>\!<<<<<<<< /
\@\@\>cr.@\< ?\<->+++++++++>->+++++++++\ | |
! | | \===-========>=>-==BCD==!\< @\< ?/< ?/# no more beer!
/=|=====|================================/
| | \<++t.<<----a.>----k.<++++e.<_.>>++++o.-n.< e.<_.>-d.>+o.>+++w.<-n.<<_.\
| | / /
| | \>---a.>n.<+++d.<_.>>++p.<---a.>>----s.s.<<<_.>>-------i.>+t.<<<_.\
| | / /
| | \>a.>>--r.<++++++o.>+++u.<-n.<+++d.>>>cr.<-T<+O<--B<<<#
| !
\@\<<<_.>>o.-n.<<_.>>>++t.<<+++h.---e.<_.>>>+++w.<<----a.>--l.l.>>CR.<---T<+++O<+B<<<#
|
\9.>9.>_.>B.>O.>T.t.<---l.<+++e.>>-s.<<<_.>>+++O.<+f.<_.>----b.+++e.E.>>-R.#
</pre>
Usage:
<pre>
mike@tron:~# pil ./snusp.l - 99.snusp +
99 bottles of beer on the wall
<a lot of strings>
00 bottles of beer on the wall
</pre>
| |||