diff --git a/Changes b/Changes index 546a2e7..6f6615a 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,6 @@ Revision history for Algorithm::Elo {{$NEXT}} - - Initial version + +0.1.1 2024-08-10T16:56:33+02:00 + - Initial version as a Raku Community Module diff --git a/META6.json b/META6.json index 398377e..db02ac8 100644 --- a/META6.json +++ b/META6.json @@ -1,5 +1,5 @@ { - "auth": "zef:community-modules", + "auth": "zef:raku-community-modules", "authors": [ "Rob Hoelz", "Raku Community" diff --git a/lib/Algorithm/Elo.rakumod b/lib/Algorithm/Elo.rakumod index 700b9da..0dcca2a 100755 --- a/lib/Algorithm/Elo.rakumod +++ b/lib/Algorithm/Elo.rakumod @@ -1,12 +1,10 @@ -unit module Algorithm::Elo; - my constant $k = 32; my sub do-it(Int:D $delta) { 1 / (1 + (10 ** ($delta / 400))); } -our sub calculate-elo( +my sub calculate-elo( Int:D $left, Int:D $right, Bool :left($left-wins), diff --git a/t/01-basic.rakutest b/t/01-basic.rakutest index fd31c49..95dc4b6 100755 --- a/t/01-basic.rakutest +++ b/t/01-basic.rakutest @@ -4,8 +4,7 @@ use Algorithm::Elo; plan 12; -( my $player-a, my $player-b ) = - Algorithm::Elo::calculate-elo(1_600, 1_600, :left); # check "our" +( my $player-a, my $player-b ) = calculate-elo(1_600, 1_600, :left); is $player-a, 1_616; is $player-b, 1_584;