OK /prog/ let's rock!
Name:
Anonymous
2008-03-23 0:43
perl -e 'while(1){ $t="prog"; while(int(rand()*100)%7) { $t .= "r"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > /dev/dsp
Name:
Anonymous
2008-03-23 1:16
Is this progressive rock?
Name:
Anonymous
2008-03-23 1:17
{}23}dsa{c@#{$56}53@SA][XA{s]{}{@!#4?
Name:
Anonymous
2008-03-23 1:24
does not work on mac os x :(
say "I AM ON A MAC I CANT RUN PERL SYNTH SHIT" # works though
Name:
Anonymous
2008-03-23 1:38
Holy shit, awesome.
Name:
Anonymous
2008-03-23 2:00
>>1
I dub this SICP Soundtrack 7
Name:
Anonymous
2008-03-23 2:02
We need to modify this to include the numbers pi and phi.
Name:
Anonymous
2008-03-23 2:09
what is it?
Name:
Anonymous
2008-03-23 3:25
>>4
perl -e 'for ($j=0; $j<5000; $j++){ $t="prog"; while(int(rand()*100)%7) { $t .= "r"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > ~/Desktop/faggot
Open Audacity. File > New, File > Import > Raw, import that file.
Results may vary.
Name:
Anonymous
2008-03-23 3:38
>>8
Posssibly the greatest thing ever.
In short, just run it.
Name:
Anonymous
2008-03-23 3:39
Haha, oh wow! Best thread in ages.
Name:
Anonymous
2008-03-23 4:25
Haha o wow. Welcome to 1985.
Name:
Anonymous
2008-03-23 5:21
noisecore?
Name:
Anonymous
2008-03-23 5:49
I can't run this since I'm on windows and don't have dev/dsp, but I think it's sending some garbage data to the audio device?
Name:
Anonymous
2008-03-23 5:58
Most productive thing on /prog/ in a while. Does anyone have any good seeds?
>>14
Refer to
>>9
Name:
Anonymous
2008-03-23 11:09
bump so i can see this when i get home
Name:
Anonymous
2008-03-23 11:45
Name:
Anonymous
2008-03-23 15:13
VALID PERL MUSIC
Name:
Anonymous
2008-03-23 15:34
Updated version
First, run this in one terminal:
perl -e 'while(1){ $t="a"; while(int(rand()*100)%12) { $t .= "x-y-z"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > /dev/dsp
Then, run this in another terminal:
[code]
perl -e 'while(1){ $t="aa"; while(int(rand()*100)%12) { $t .= "cc"; } for($i=0; $i<25; $i++) { print "$t" . 0.5 ; } }' > /dev/dsp
[code]
Name:
Anonymous
2008-03-23 15:35
perl -e 'while(1){ $t="a"; while(int(rand()*100)%12) { $t .= "x-y-z"; } for($i=0; $i<25; $i++) { print "$t$t$t" . rand(); } }' > /dev/dsp
perl -e 'while(1){ $t="aa"; while(int(rand()*100)%12) { $t .= "cc"; } for($i=0; $i<25; $i++) { print "$t" . 0.5 ; } }' > /dev/dsp
Name:
Anonymous
2008-03-23 15:56
bash: /dev/dsp: Device or resource busy
Name:
Anonymous
2008-03-23 16:00
lame --decode something.mp3 - | sox -twav - -r8000 -ul1c1 -traw /dev/dsp
I WIN
Name:
Anonymous
2008-03-23 16:01
>>21
Either you are a faggot or you are a faggot. Try piping it to aplay
Name:
Anonymous
2008-03-23 16:55
Fuck, I fail at this.
Name:
Anonymous
2008-03-23 18:13
Holy shit, it played Metallica's "Anesthesia" in its entirety here.
Name:
Anonymous
2008-03-23 18:27
Holy shit, it played ``Jesu, Joy of Man's Desire'' in its entirety here.
Name:
Anonymous
2008-03-23 18:38
How do I get the output to a file in windows?
Name:
Anonymous
2008-03-23 18:38
Holy shit, it played Gerald Sussman's SICP Videos in its entirety here.
Name:
Anonymous
2008-03-23 18:43
>>27
RedirOutputToFileEx(NULL, NULL, NULL, NULL, NULL);
Name:
Anonymous
2008-03-23 19:44
^C
Name:
Anonymous
2008-03-23 20:21
You know where to redirect it.
#!/usr/bin/perl
while (1) {
$t="fsdgggg";
for($i=0; $i<1000; $i++) { print "$t" }
$t="fsdggggg";
for($i=0; $i<500; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdgggg";
for($i=0; $i<600; $i++) { print "$t" }
$t="fsdgggg";
for($i=0; $i<1000; $i++) { print "$t" . ($i%2==0?"g":"") }
$t="fsdggggggg";
for($i=0; $i<700; $i++) { print "$t" . ($i%1==0?"g":"") }
$t="fsdgggg";
for($i=0; $i<250; $i++) { print "$t" }
$t="fsdgggg";
for($i=0; $i<240; $i++) { print "$t" . ($i%2==0?"g":"") }
$t="fsdggggg";
for($i=0; $i<230; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdgggggg";
for($i=0; $i<230; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdggggg";
for($i=0; $i<500; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdg";
for($i=0; $i<700; $i++) { print "$t" .($i%2==0?"ggg":"") }
$t="fsdgggg";
for($i=0; $i<1000; $i++) { print "$t" . ($i%2==0?"g":"") }
$t="fsdggggggg";
for($i=0; $i<700; $i++) { print "$t" . ($i%1==0?"g":"") }
$a = 2;
while($a--) {
$t="fsdggggg";
for($i=0; $i<450; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdgggggg";
for($i=0; $i<220; $i++) { print "$t".($i%4==0?"g":"") }
$t="fsdgggggg";
for($i=0; $i<210; $i++) { print "$t".($i%2==0?"ggg":"") }
$t="fsdgggggg";
for($i=0; $i<160; $i++) { print "$t".($i%2==0?"gggg":"") }
$t="fsdgggggg";
for($i=0; $i<150; $i++) { print "$t".($i%4==0?"gggggggg":"") }
$t="fsdgggggg";
for($i=0; $i<170; $i++) { print "$t".($i%2==0?"gggg":"") }
$t="fsdgggggg";
for($i=0; $i<200; $i++) { print "$t".($i%2==0?"ggg":"") }
$t="fsdgggggg";
for($i=0; $i<270; $i++) { print "$t".($i%2==0?"gggg":"") }
last unless $a;
$t="fsdgggg";
for($i=0; $i<500; $i++) { print "$t" .($i%2==0?"g":"")}
$t="fsdgggggg";
for($i=0; $i<400; $i++) { print "$t"; }
$t="fsdgggggg";
for($i=0; $i<400; $i++) { print "$t".($i%2==0?"gggg":"") }
}
$t="fsdgggg";
for($i=0; $i<1300; $i++) { print "$t" .($i%2==0?"g":"")}
}
Name:
Anonymous
2008-03-23 20:29
Name:
Anonymous
2008-03-23 22:00
Name:
Anonymous
2008-03-23 22:23
Remix: Pipe through uuencode or gzip
Name:
Anonymous
2008-03-23 23:06
>>31
EXPERT PERL MUSICIAN
Name:
Anonymous
2008-03-23 23:39
Key change: pipe through tr -d "d"
Name:
Anonymous
2008-03-24 22:15
>>31
Much more useful than regexps
Name:
Anonymous
2008-03-25 21:24
perl -e 'while (1) {}' > /dev/dsp
Name:
Anonymous
2008-03-25 21:28
>>38
This is that Simon & Garfunkel song?
Name:
Anonymous
2008-03-26 2:58
>>39
that was certainly an obscure reference.
Newer Posts