in reply to What programming language do you hate the most?
% Quicksort % % Chris Collins <xfire@xware.cx> % 17-Sep-2001 /qsort { dup length 1 gt { << exch /xlt [ ] /xgt [ ] /x 6 5 roll dup 0 + get exch dup length 1 sub 1 exch getinterval /xs exch >> begin 0 1 xs leng +th 1 sub { xs exch get dup x lt exch [ exch 3 2 roll { xlt aload pop ] /xlt + } { xgt aload pop ] /xgt } ifelse exch store } for [ xlt qsort aload pop x + xgt qsort aload pop ] end } if } def [ 5 2 5 7 9 3 ] qsort == [ 3 5 2 1 5 2 9 6 3 5 7 ] qsort ==
«The Crux of the Biscuit is the Apostrophe»
perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: What programming language do you hate the most? (Forth and RPN)
by LanX (Saint) on Dec 04, 2017 at 13:16 UTC | |
by karlgoethebier (Abbot) on Dec 04, 2017 at 16:45 UTC |