99 Bottles of Beer in Factor.
A naïve implementation from someone who is just beginning to (re)learn the language and doesn't want to (nor can) show off the flashy features, like so many other examples of 99 Bottles of Beer.
USING: combinators io kernel make math math.parser sequences ; IN: 99bottles : bottles ( n -- str ) { { 0 [ "no more bottles" ] } { 1 [ "1 bottle" ] } [ number>string " bottles" append ] } case ; : verse-0 ( n -- ) drop "No more bottles of beer on the wall, no more bottles of beer....
Slava Pestov: "Daniel Ehrenberg is planning on writing an Objective C 2.0 binding,
and once this is done I don't want to keep the old Objective C bridge
around anymore. At this point, we will drop 10.4 support." http://permalink....
In Trivial Sequence Shuffling, Leslie P. Polzer posted an easy and short version of a sequence shuffler in Common Lisp. The sort function has to do all the work. Not a recommended way to shuffle your sequences, but a short one.
The Factor version isn't very long, too:
USING: sorting random ; : seqrnd ( seq -- rndseq ) [ 2drop { -1 0 1 } random ] sort ; !...