(foo 150 '(39 50 50 5 33 36 37 37 25 29 31 32 32 1 19 24 24 25 28 29 13 14 14 17 18 21 21 23 12))
returns ((23 33 5 50 39) (12 14 1 37 36 50) (28 31 29 25 37) (18 25 24 19 32 32))
but this is isn't a valid bin pack because there's values missing, that's why I'm confused at what this challenge is an about.
consider this sub-optimal fit first routine
(defun ff (c l / i r res)
(princ "\n")
(setq res 0)
(setq r c)
(foreach i l
(if (> i r)
(progn
(setq res (1+ res))
(setq r (- c i))
(princ "\n")
)
(progn
(setq r (- r i))
(princ i)(princ " ")
)
)
)
(princ "Bins = ")
res
)
(ff 150 '(39 50 50 5 33 36 37 37 25 29 31 32 32 1 19 24 24 25 28 29 13 14 14 17 18 21 21 23 12))
returns
39 50 50 5
36 37 37
29 31 32 32 1
24 24 25 28 29
14 14 17 18 21 21 23