← All posts tagged Perl

ramok
Perl music code
зацепили тему в #1582764, по ссылке нашел формулу и убрал лишнее: perl -e 'print pack "C",++$t*4*($t>>11&1)*!($t>>11&8)+$t*2*($t>>10&1)*!($t>>10&128)+$t*4*($t>>10&1)*!!($t>>10&128)+$t*sin($t)*!!($t>>10&4)*($t>>10&1)while 1'|aplay