From 2f3b768a4eaeed564f948995f52ef0615bf92c42 Mon Sep 17 00:00:00 2001 From: Jason Staten Date: Sat, 23 May 2020 21:00:34 -0600 Subject: [PATCH] rearrange args --- hashids.janet | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hashids.janet b/hashids.janet index 924763e..430570f 100644 --- a/hashids.janet +++ b/hashids.janet @@ -39,7 +39,7 @@ (defn- intersection [s1 s2] (seq [x :in s1 y :in s2 :when (= x y)] x)) -(defn balance [sep-bytes alph-bytes] +(defn balance [alph-bytes seps-bytes] [ @@ -70,8 +70,8 @@ seps-bytes (string/bytes seps) alph-unbal (difference alph-bytes seps-bytes) seps-unbal (intersection alph-bytes seps-bytes) - [seps-bal alph-bal] (balance (consistent-shuffle seps-unbal salt-bytes) - alph-unbal)] + [seps-bal alph-bal] (balance alph-unbal + (consistent-shuffle seps-unbal salt-bytes))] { :seps (apply string/from-bytes seps-unbal) :alph (apply string/from-bytes alph-unbal)