Here's a Monte Carlo prog that weighs in at 42:

die grep(rand()**2+rand()**2<1,1..4e6)/1e6
[download]

(I don't claim it's pretty, converges fast, scrimps on memory, or produces repeatable results.)