diff options
author | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
commit | 889139602b77e4387a6e8bfbedacc2a08703e976 (patch) | |
tree | 3a113e298037122e81b5529475bd1e59286f733f /stdlib/source/test/lux/locale/territory.lux | |
parent | dbb658bd7976c073a2bf314f194b36b30c45784b (diff) |
Re-named lux/data/format/context to lux/control/parser/environment.
Diffstat (limited to 'stdlib/source/test/lux/locale/territory.lux')
-rw-r--r-- | stdlib/source/test/lux/locale/territory.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux index 43d4401ec..12fa402af 100644 --- a/stdlib/source/test/lux/locale/territory.lux +++ b/stdlib/source/test/lux/locale/territory.lux @@ -10,7 +10,7 @@ ["n" nat]] [collection ["." set (#+ Set)] - ["." list ("#@." functor fold)]]] + ["." list ("#\." functor fold)]]] [macro ["." template]] [math @@ -33,10 +33,10 @@ (let [count (template.count <territories>) territories (`` (list (~~ (template.splice <territories>))))] {#count count - #names (|> territories (list@map /.name) (set.from-list text.hash)) - #shorts (|> territories (list@map /.short-code) (set.from-list text.hash)) - #longs (|> territories (list@map /.long-code) (set.from-list text.hash)) - #numbers (|> territories (list@map /.numeric-code) (set.from-list n.hash)) + #names (|> territories (list\map /.name) (set.from-list text.hash)) + #shorts (|> territories (list\map /.short-code) (set.from-list text.hash)) + #longs (|> territories (list\map /.long-code) (set.from-list text.hash)) + #numbers (|> territories (list\map /.numeric-code) (set.from-list n.hash)) #territories (|> territories (set.from-list /.hash)) #test (_.cover <territories> true)}))] @@ -138,7 +138,7 @@ (Hash a) (List Bundle) [Nat (Set a)])) - (list@fold (function (_ bundle [count set]) + (list\fold (function (_ bundle [count set]) [(n.+ count (get@ #count bundle)) (set.union set (lens bundle))]) [0 (set.new hash)] @@ -148,8 +148,8 @@ Test (|> ..territories list.reverse - (list@map (get@ #test)) - (list@fold _.and + (list\map (get@ #test)) + (list\fold _.and (`` ($_ _.and (~~ (template [<lens> <tag> <hash>] [(let [[count set] (..aggregate (get@ <tag>) <hash> ..territories)] |