Gwern Branwen writes: [...]

Sure, but then he'd need to scale it. $RANDOM outputs between 0 and 32767, not 0-100.

OK, in zsh, something like: printf %d $((RANDOM/327.67)) Of course, none of these are likely to be as good as just using python (or some other suitable language). For example the zsh example's not likely enough to produce 100. (Hmm, actually wouldn't hex be just as good? In which case a shell-based answer might be adequate (use printf %02x)?)

I was already betting with myself, when the first Haskell solution would be finally posted ;) Thanks so much! Best, Thomas Adam Vogt wrote:

* On Thursday, June 04 2009, Bruce Stephens wrote:

...

Gwern Branwen writes:

[...]

...

Sure, but then he'd need to scale it. $RANDOM outputs between 0 and 32767, not 0-100.

OK, in zsh, something like:

printf %d $((RANDOM/327.67))

Of course, none of these are likely to be as good as just using python (or some other suitable language). For example the zsh example's not

Haskell:

...

import System.Random import Numeric import XMonad import Control.Monad

...

randomHex :: (Integral a, Random a) => (a, a) -> IO [Char] randomHex = fmap (concatMap $ ensure 2 . ($ "") . showHex) . replicateM 3 . randomRIO where ensure n = reverse . take n . (++repeat '0') . reverse

...

randomBg :: (Int,Int) -> X () randomBg x = do t <- asks terminal io $ spawn . ((t++" -bg '#")++) . (++"'") =<< randomHex x

_______________________________________________ xmonad mailing list xmonad@haskell.org http://www.haskell.org/mailman/listinfo/xmonad

On Thu, 4 Jun 2009 16:39:38 -0600 Sergey Manucharian wrote: .....

-------------------------8<------------------------- #!/bin/bash R_BASE=32768 G_BASE=32768 B_BASE=32768

`printf "xterm -bg rgb:%04x/%04x/%04x\n" $(($R_BASE+$RANDOM)) $(($G_BASE+$RANDOM)) $(($B_BASE+$RANDOM))` -------------------------8<-------------------------

My previous example is closer to white, to make it darker: -------------------------8<------------------------- #!/bin/bash R_BASE=16384 G_BASE=16384 B_BASE=16384 SC=2 # scale factor, num of bits to shift `printf "xterm -bg rgb:%04x/%04x/%04x\n" $(($R_BASE+($RANDOM>>$SC))) $(($G_BASE+($RANDOM>>$SC))) $(($B_BASE+($RANDOM>>$SC)))` -------------------------8<------------------------- Cheers, Sergey