- tuple-append #!rest tupsprocedure
function (result)
(tuple-append . tups) requires ((list-of? %tuple?) tups) ensures (and (%tuple? result) (= (tuple-length result) (apply + (map tuple-length tups))))
function (result)
(tuple-append . tups) requires ((list-of? %tuple?) tups) ensures (and (%tuple? result) (= (tuple-length result) (apply + (map tuple-length tups))))