gistfile1.clj

user> (iter {for x from 1 to 10}
            {reduce x by conj initially [] into odds if (odd? x)}
            {reduce x by conj initially [] into evens if (even? x)}
            {sum x into sum-odds if (odd? x)}
            {sum x into sum-evens if (even? x)}
            {returning {:evens evens
                        :odds odds
                        :sum-odds sum-odds
                        :sum-evens sum-evens}})
{:evens [2 4 6 8 10], :odds [1 3 5 7 9], :sum-odds 25, :sum-evens 30}