RosettaCodeData/Task/Power-set/TXR/power-set-3.txr

@(do (defun power-set (s)
       (mappend* (op comb s) (range 0 (length s))))
     (prinl (power-set "abc"))
     (prinl (power-set "b"))
     (prinl (power-set ""))
     (prinl (power-set #(1 2 3))))
March 2014 update 2014-04-02 16:56:35 +00:00			`@(do (defun power-set (s)`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(mappend* (op comb s) (range 0 (length s))))`
March 2014 update 2014-04-02 16:56:35 +00:00			`(prinl (power-set "abc"))`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(prinl (power-set "b"))`
March 2014 update 2014-04-02 16:56:35 +00:00			`(prinl (power-set ""))`
			`(prinl (power-set #(1 2 3))))`