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/Price-fraction/PicoLisp/price-fraction.l
+++ b/Task/Price-fraction/PicoLisp/price-fraction.l
@ -0,0 +1,31 @@
+(scl 2)
+
+(de price (Pr)
+   (format
+      (cdr
+         (rank Pr
+            (quote
+               (0.00 . 0.10)
+               (0.06 . 0.18)
+               (0.11 . 0.26)
+               (0.16 . 0.32)
+               (0.21 . 0.38)
+               (0.26 . 0.44)
+               (0.31 . 0.50)
+               (0.36 . 0.54)
+               (0.41 . 0.58)
+               (0.46 . 0.62)
+               (0.51 . 0.66)
+               (0.56 . 0.70)
+               (0.61 . 0.74)
+               (0.66 . 0.78)
+               (0.71 . 0.82)
+               (0.76 . 0.86)
+               (0.81 . 0.90)
+               (0.86 . 0.94)
+               (0.91 . 0.98)
+               (0.96 . 1.00) ) ) )
+      *Scl ) )
+
+(for N (0.3793 0.4425 0.0746 0.6918 0.2993 0.5486 0.7848 0.9383 0.2292)
+   (prinl (price N)) )