http://www.perlmonks.org?node_id=1051979

I'm pretty new to golf but this is the best i could do. I would like to see how you would fit this is fewer chars I'm sure theres one way or an other.

use Time::HiRes 'usleep';$|=1;for(;;){$_=(int rand 9)/2;if(/\.5/){prin
+t"wub "}else{print"wooo "}usleep 100000}

[download]

thanks.

Replies are listed 'Best First'.
Re: Golfing dubstep.pl
by toolic (Bishop) on Sep 02, 2013 at 21:15 UTC
[reply]
[d/l]
      86 
                    1         2         3         4         5         6     
+    7         8      
     12345678901234567890123456789012345678901234567890123456789012345
+678901234567890123456
perl -e'use Time::HiRes"usleep";$|=1;{print+(int rand 9)%2?"wub ":"woo
+o ";usleep 1e5;redo}'

      [download]
      Update: Or even 69: 
      perl -e'$|=1;{print+(int rand 9)%2?"wub ":"wooo ";select$u,$u,$u,.1;re
+do}'

      [download]
      Update: 64, thanks hdb: 
      perl -e'$|=1;{print rand(9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}'
              1         2         3         4         5         6    
     1234567890123456789012345678901234567890123456789012345678901234

      [download]
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]

        int is not needed.

[reply]
[d/l]
[select]

        Doesn't catch the first "w" but here is a slight variation.

        select$u,$u,$u,.1while$|=print rand>5/9?ub:ooo,$".w
[reply]
[d/l]

      after research this has by far the weirdest operator i've seen

[reply]
Re: Golfing dubstep.pl
by hdb (Monsignor) on Sep 03, 2013 at 06:36 UTC

    58 (credit to all entries above!). I hope I got the probability correct... 

                  1         2         3         4         5         6
     123456789012345678901234567890123456789012345678901234567890
perl -e'select$u,$u,$u,.1while$|=print+rand>5/9?"wub ":"wooo "'

    [download]

    Update: If you are happy to accept hyphens rather than blanks, we can save for more characters, see Re: Why is this auto-quoted?

                  1         2         3         4         5         6
     123456789012345678901234567890123456789012345678901234567890
perl -e'select$u,$u,$u,.1while$|=print+rand>5/9?-wub:-wooo'

    [download]
[reply]
[d/l]
[select]
      Nice. Shortened to 55: 
                    1         2         3         4         5     
     1234567890123456789012345678901234567890123456789012345
perl -e'select$u,$u,$u,.1while$|=print rand>5/9?wub:wooo,$"'

      [download]
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

        Phantastic! I never see all the potential of the special variables. If one is allowed to first print a blank, one can shorten it by another character...

[reply]
[d/l]

Back to Meditations