code-golf

Code Golf: Leibniz formula for Pi

by

J, 14 chars 4*-/%>:+:i.1e6 Explanation 1e6 is number 1 followed by 6 zeroes (1000000). i.y generates the first y non negative numbers. +: is a function that doubles each element in the list argument. >: is a function that increments by one each element in the list argument. So, the expression >:+:i.1e6 generates the first … Read more

Code golf: the Mandelbrot set

by

There was a perl solution already some years ago posted in perlmonks, it reads: #!/usr/bin/perl $r=25; $c=80; $xr=6;$yr=3;$xc=-0.5;$dw=$z=-4/ 100;local$”;while($q=$dr=rand() /7){$w+=$dw;$_=join$/,map{$Y=$_* $yr/$r; join”” ,map{$ x=$_*$ xr/$c;($ x,$y)= ($xc+$x *cos($ w)-$Y* sin$w,$yc+ $x*sin ($w)+$Y*cos $w);$ e=-1;$ a=$b=0 ;($a,$b) =($u-$v+$x,2*$a* $b+$y) while( $ u=$a*$ a)+($v=$b*$b)<4.5 &&++$e <15;if (($e>$ q&&$e< 15)||($e==$q and rand() <$dr)) {$q=$e;($d0,$d1) =($x,$ y); } chr(+( … Read more

Code Golf: Fractran

by

Fractran – 1779 fractions (Edit: fixed) (I hope people are still following this thread, because this took a while!) It appears SO won’t let me post something as long as this, so I posted the Fractran source here. Input is specified as follows: First, we encode a fraction m/n = p_0^a0… p_k^ak by: Start with … Read more

tech