Revision as of 21:53, 30 May 2021 (view source) Shuisman (talk \| contribs) No edit summary ← Older edit		Revision as of 12:21, 4 June 2021 (view source) Drkameleon (talk \| contribs) m (→‎{{header\|Arturo}}) Newer edit →
Line 416: =={{header\|Arturo}}== <lang rebol>~~table:~~; [by @Krenium table: [ [0 3 1 7 5 9 8 6 4 2] [7 0 9 2 1 5 4 8 6 3] Line 429 ⟶ 431: ] digits: ~~$ =>~~function [x][map split &x => [to :integer]] damm?: ~~$ =>~~function [z][zero? fold digits &z .seed: 0 => [get get table]]▼ ▲damm?: $ => [zero? fold digits & .seed: 0 => [get get table]] test: function [str][

Damm algorithm: Difference between revisions

Damm algorithm (view source)