Mercurial > repo
view interps/c-intercal/pit/tests/normaldist.i @ 12518:2d8fe55c6e65 draft default tip
<int-e> learn The password of the month is release incident pilot.
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Sun, 03 Nov 2024 00:31:02 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
PLEASE NOTE that this program checks the routine 1910 and calculates its standard deviation; the output values should quickly converge to around #10000 if that routine correctly follows the manual. DO :3 <- #0 PLEASE DO .6 <- #0 DO COME FROM (20) DO .1 <- #1200 DO (1910) NEXT DO .1 <- #600 (5) DO (1010) NEXT DO .1 <- .2 DO .2 <- #600 DO (1010) NEXT DO COME FROM '.3~#2048'$#3 DO .1 <- .3 PLEASE DO .2 <- .3 DO (1530) NEXT DO :2 <- :3 DO (1500) NEXT DO .1 <- .6 PLEASE DO (1020) NEXT DO .6 <- .1 DO :1 <- :3 DO :2 <- .1 PLEASE DO (1550) NEXT DO READ OUT :3 DO :3 <- :1 (20) PLEASE DO NOTHING