tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Random-numbers/PicoLisp/random-numbers.l
+++ b/Task/Random-numbers/PicoLisp/random-numbers.l
@ -0,0 +1,16 @@
+(load "@lib/math.l")
+
+(de randomNormal ()  # Normal distribution, centered on 0, std dev 1
+   (*/
+      (sqrt (* -2.0 (log (rand 0 1.0))))
+      (cos (*/ 2.0 pi (rand 0 1.0) `(* 1.0 1.0)))
+      1.0 ) )
+
+(seed (time))                                      # Randomize
+
+(let Result
+   (make                                           # Build list
+      (do 1000                                     # of 1000 elements
+         (link (+ 1.0 (/ (randomNormal) 2))) ) )
+   (for N (head 7 Result)                          # Print first 7 results
+      (prin (format N *Scl) " ") ) )