Mercurial > repo

diff interps/c-intercal/pit/tests/normaldist.i @ 996:859f9b4339e6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Gregor> tar xf egobot.tar.xz
author HackBot
date Sun, 09 Dec 2012 19:30:08 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/c-intercal/pit/tests/normaldist.i	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,28 @@
+	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