mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-10-17 21:12:26 +00:00
Code Issues 1 Releases Wiki Activity

Simplify frequencies implementation (#1793)

Browse Source 
* Add tests for frequencies

* Simplify frequencies implementation

---------

Co-authored-by: sogaiu <983021772@users.noreply.github.com>
This commit is contained in:
sogaiu
2026-08-08 09:30:20 -05:00
committed by GitHub
co-authored by sogaiu
parent f362e8f0fa
commit 331e8544bc
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite-boot.janet
+8
View File
@@ -1032,4 +1032,12 @@
# regression test for #1659
(assert (= (try (error :error) ([_ _] :caught)) :caught))
# frequencies
(assert (deep= (frequencies :lol) @{108 2 111 1}))
(assert (deep= (frequencies [:duck :duck :duck :goose]) @{:duck 3 :goose 1}))
(assert (deep= (frequencies {1 :a 2 :x 3 :x 8 :a}) @{:a 2 :x 2}))
(assert (deep= (frequencies @{}) @{}))
(assert (deep= (frequencies (coro (yield 1) (yield 8) (yield 2) (yield 8)))
@{1 1 2 1 8 2}))
(end-suite)