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/SEDOLs/PicoLisp/sedols.l
+++ b/Task/SEDOLs/PicoLisp/sedols.l
@ -0,0 +1,21 @@
+(de sedol (Str)
+   (pack Str
+      (char
+         (+ `(char "0")
+            (%
+               (- 10
+                  (%
+                     (sum
+                        '((W C)
+                           (cond
+                              ((>= "9" C "0")
+                                 (* W (format C)) )
+                              ((>= "Z" (setq C (uppc C)) "A")
+                                 (* W (+ 10 (- (char C) `(char "A")))) ) ) )
+                        (1 3 1 7 3 9)
+                        (chop Str) )
+                     10 ) )
+               10 ) ) ) ) )
+
+(for S '("710889" "B0YBKJ" "406566" "B0YBLH" "228276" "B0YBKL" "557910" "B0YBKR" "585284" "B0YBKT" "B00030")
+   (prinl (sedol S)) )