JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The generic allocation program takes the one slice

Browse Source 
The slice lane merged after this program was written and as-slice went
with it. Nine calls, one name.
This commit is contained in:
Joseph Ferano 2026-09-21 10:57:52 +07:00
parent bb274432a7
commit 69c1116efc
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/programs/generic-alloc.flan
View File

@ -21,7 +21,7 @@
{:where (ordered? $t)} {:where (ordered? $t)}
(let [v (vec-new $t)] (let [v (vec-new $t)]
(dotimes [i (len xs)] (push v (at xs i))) (dotimes [i (len xs)] (push v (at xs i)))
(sort (as-slice v)) (sort (slice v))
v)) v))
;; The same, against a named allocator rather than the context's. Both arities ;; The same, against a named allocator rather than the context's. Both arities
@ -30,7 +30,7 @@
{:where (ordered? $t)} {:where (ordered? $t)}
(let [v (vec-new $t al)] (let [v (vec-new $t al)]
(dotimes [i (len xs)] (push v (at xs i))) (dotimes [i (len xs)] (push v (at xs i)))
(sort (as-slice v)) (sort (slice v))
v)) v))
;; A Map whose key is the variable. The predicate is what lets the hash and the ;; A Map whose key is the variable. The predicate is what lets the hash and the
@ -71,17 +71,17 @@
fs [2.5 0.5 1.5] fs [2.5 0.5 1.5]
a (sorted (slice ns 0 4)) a (sorted (slice ns 0 4))
b (sorted (slice fs 0 3))] b (sorted (slice fs 0 3))]
(println (at (as-slice a) 0)) ; 1 (println (at (slice a) 0)) ; 1
(println (at (as-slice a) 3)) ; 9 (println (at (slice a) 3)) ; 9
(println (at (as-slice b) 0)) ; 0.5 (println (at (slice b) 0)) ; 0.5
(println (len (as-slice b))) ; 3 (println (len (slice b))) ; 3
(free a) (free a)
(free b)) (free b))
(let [ns [4 2 8] (let [ns [4 2 8]
ar (arena-new 4096) ar (arena-new 4096)
c (sorted-in (slice ns 0 3) ar)] c (sorted-in (slice ns 0 3) ar)]
(println (at (as-slice c) 0)) ; 2 (println (at (slice c) 0)) ; 2
(free-all ar)) (free-all ar))
(let [ns [7 7 3] (let [ns [7 7 3]
@ -105,8 +105,8 @@
(invoke-restart 'retry))] (invoke-restart 'retry))]
(let [ns [9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4] (let [ns [9 8 7 6 5 4 3 2 1 0 9 8 7 6 5 4]
d (sorted-in (slice ns 0 16) tight)] d (sorted-in (slice ns 0 16) tight)]
(println (len (as-slice d))) ; 16 (println (len (slice d))) ; 16
(println (at (as-slice d) 0)) ; 0 (println (at (slice d) 0)) ; 0
(free d))) (free d)))
(println (> failures 0)) ; true (println (> failures 0)) ; true
(set-alloc-budget tight 0)) (set-alloc-budget tight 0))