14 lines
352 B
Text
14 lines
352 B
Text
[ 48 - dup 9 > if [ 7 - ] ] is chvalue ( c --> n )
|
|
|
|
[ 0 over witheach
|
|
[ chvalue
|
|
' [ 1 3 1 7 3 9 ]
|
|
i^ peek * + ]
|
|
10 mod 10 swap - 10 mod
|
|
48 + join ] is ->sedol ( $ --> $ )
|
|
|
|
$ "710889 B0YBKJ 406566 B0YBLH
|
|
228276 B0YBKL 557910 B0YBKR
|
|
585284 B0YBKT B00030" nest$
|
|
|
|
witheach [ ->sedol echo$ cr ]
|