aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Task/SEDOLs/Ursala/sedols-1.ursala Normal file
View file

@ -0,0 +1,8 @@
#import std
#import nat
alphabet = digits-- ~=`A-~r letters
weights = <1,3,1,7,3,9>
charval = -:@rlXS num alphabet
iprod = sum:-0+ product*p/weights+ charval*
checksum = difference/10+ remainder\10+ iprod

2
Task/SEDOLs/Ursala/sedols-2.ursala Normal file
View file

@ -0,0 +1,2 @@
weights = difference/*10 <1,3,1,7,3,9>
checksum = remainder\10+ iprod

2
Task/SEDOLs/Ursala/sedols-3.ursala Normal file
View file

@ -0,0 +1,2 @@
lookup = -: (^/~& product^|/~& charval)*lsPrK0/weights alphabet
iprod = sum:-0+ lookup*p/weights

2
Task/SEDOLs/Ursala/sedols-4.ursala Normal file
View file

@ -0,0 +1,2 @@
lookups = (-:+ * ^/~&l product^|/charval ~&)* *-* -*weights alphabet
iprod = sum:-0+ gang +^|(~&,~)*lNrXXK9 ^(~&,&h!)* lookups

15
Task/SEDOLs/Ursala/sedols-5.ursala Normal file
View file

@ -0,0 +1,15 @@
#show+
examples = ^T(~&,~&h+ %nP+ checksum)*t
-[
710889
B0YBKJ
406566
B0YBLH
228276
B0YBKL
557910
B0YBKR
585284
B0YBKT]-