(71B) Buffon's Needle

[Valentin Albillo]

(09-08-2019 04:00 PM)SlideRule Wrote:  30 H=0 @ FOR J=1 TO 10 @ IF RND()<SIN(RND()*PI) THEN H=H+1
40 NEXT J @ R(H)=R(H)+1 @ P=P+H

You will get a syntax error entering line 30, it's just RND, without the parentheses, not RND().

Also, it should run somewhat faster if you include the NEXT J also in line 30, like this:

30 H=0 @ FOR J=1 TO 10 @ H=H+(RND<SIN(RND*PI)) @ NEXT J

(written and posted on the go using a tablet, still not at my laptop)

Regards.
V.
.