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/Forth/sedols.fth
+++ b/Task/SEDOLs/Forth/sedols.fth
@ -0,0 +1,28 @@
+create weight 1 , 3 , 1 , 7 , 3 , 9 ,
+
+: char>num ( '0-9A-Z' -- 0..35 )
+  dup [char] 9 > 7 and - [char] 0 - ;
+
+: check+ ( sedol -- sedol' )
+  6 <> abort" wrong SEDOL length"
+  0 ( sum )
+  6 0 do
+    over I + c@ char>num
+    weight I cells + @ *
+    +
+  loop
+  10 mod   10 swap -  10 mod  [char] 0 +
+  over 6 + c! 7 ;
+
+: sedol"   [char] " parse check+ type ;
+
+sedol" 710889" 7108899 ok
+sedol" B0YBKJ" B0YBKJ7 ok
+sedol" 406566" 4065663 ok
+sedol" B0YBLH" B0YBLH2 ok
+sedol" 228276" 2282765 ok
+sedol" B0YBKL" B0YBKL9 ok
+sedol" 557910" 5579107 ok
+sedol" B0YBKR" B0YBKR5 ok
+sedol" 585284" 5852842 ok
+sedol" B0YBKT" B0YBKT7 ok