No, you could write them in J [1]. This is how you do quicksort in J:
quicksort=: (($:@(<#[) , (=#[) , $:@(>#[)) ({~ ?@#)) ^: (1<#)
--Casey
[1] http://en.wikipedia.org/wiki/J_programming_language
On Thu, Apr 3, 2008 at 12:41 PM, Tim Shearer <[log in to unmask]> wrote:
> So now I have to compile my jokes?
>
> -t
>
>
> On Thu, 3 Apr 2008, Ryan Ordway wrote:
>
> #include <stdio.h>
> > main(t,_,a)
> > char *a;
> > {
> > return!0<t?t<3?main(-79,-13,a+main(-87,1-_,main(-86,0,a+1)+a)):
> > 1,t<_?main(t+1,_,a):3,main(-94,-27+t,a)&&t==2?_<13?
> > main(2,_+1,"%s %d %d\n"):9:16:t<0?t<-72?main(_,t,
> > "@n'+,#'/*{}w+/w#cdnr/+,{}r/*de}+,/*{*+,/w{%+,/w#q#n+,/#{l+,/n{n+,/+#n
> > +,/#\
> > ;#q#n+,/+k#;*+,/'r :'d*'3,}{w+K w'K:'+}e#';dq#'l \
> > q#'+d'K#!/+k#;q#'r}eKK#}w'r}eKK{nl]'/#;#q#n'){)#}w'){){nl]'/+#n';d}rw'
> > i;# \
> > ){nl]!/n{n#'; r{#w'r nc{nl]'/#{l,+'K {rw' iK{;[{nl]'/w#q#n'wk nw' \
> > iwk{KK{nl]!/w{%'l##w#' i; :{nl]'/*{q#'ld;r'}{nlwb!/*de}'c \
> > ;;{nl'-{}rw]'/+,}##'*}#nc,',#nw]'/+kd'+e}+;#'rdq#w! nr'/ ') }+}
> > {rl#'{n' ')# \
> > }'+}##(!!/")
> > :t<-50?_==*a?putchar(31[a]):main(-65,_,a+1):main((*a=='/')+t,_,a+1)
> > :0<t?main(2,2,"%s"):*a=='/'||main(0,main(-61,*a,
> > "!ek;dc i@bK'(q)-[w]*%n+r3#l,{}:\nuwloca-O;m .vpbks,fxntdCeghiry"),a+1);
> > }
> >
> >
> >
> > On Apr 3, 2008, at 8:54 AM, Jeremy Frumkin wrote:
> >
> > > ..- .-.. .-.. .. .----. -- --. --- .. -. --. - --- ... .-
> > > -.-- .-
> > > -... --- ..- - - .... .. ... - .... .-. . .- -.. .. ...
> > > - .... .- -
> > > -. --- -. . --- ..-. -.--
> > > --- ..- ... ..- ..-. ..-. . .-. ..-. .-.
> > > --- -- .-. -- .. - .... . .-- .- -.-- .. -..
> > > --- .-- .... . -.
> > > .. ..- ... . -- -.-- .--. .-. . ..-. . .-. .-. . -.. ..
> > > -. .--. ..-
> > > - -.. . ...- .. -.-. . .-.-.- .-.-.- .-.-.-
> > >
> > > -....- -....- .--- .- ..-.
> > >
> > >
> > > On 4/3/08 6:51 AM, "Walter Lewis" <[log in to unmask]> wrote:
> > >
> > > Sebastian Hammer wrote:
> > > >
> > > > > A true hacker has no need for these crude tools. He waits for
> > > > > > cosmic
> > > > > > radiation to pummel the magnetic patterns on his drive into a
> > > > > > pleasing
> > > > > > and functional sequence of bits.
> > > > > >
> > > > > Alas, having been doing this (along with my partners, the four
> > > > Yorkshiremen) since the Stone Age ...
> > > >
> > > > We used to arrange pebbles in the middle of road into the relevant
> > > > patterns (we *dreamed* of being able to afford the wire for an
> > > > abacus).
> > > > Passing carts would then help "crunch" the numbers.
> > > >
> > > > Walter
> > > > for whom graph paper, templates, pencils, 80 column punchcards and
> > > > IBM Assembler were formative experiences
> > > >
> > > >
> > >
> > >
> > > ===============================================
> > > Jeremy Frumkin
> > > Head, Emerging Technologies and Services
> > > 121 The Valley Library, Oregon State University
> > > Corvallis OR 97331-4501
> > >
> > > [log in to unmask]
> > >
> > > 541.602.4905
> > > 541.737.3453 (Fax)
> > > ===============================================
> > > " Without ambition one starts nothing. Without work one finishes
> > > nothing. "
> > > - Emerson
> > >
> > >
> > --
> > Ryan Ordway E-mail: [log in to unmask]
> > Unix Systems Administrator [log in to unmask]
> > OSU Libraries, Corvallis, OR 97331 Office: Valley Library #4657
> >
>
|