Need help with Haskell coding here

Will upvote if answered in 5 hours

Please provide the code that has the following output

( question3.hs, interpreted ) >>> :l question3.hs [1 of 1] Compiling Main Ok, one module loaded. >>> partition3 [] ([],[], []) >>> partition3 [3,1,8,2,3,9,7,3,0) ([1,2,0],[3,3,3], [8,9,7]) ( question3.hs, interpreted ) >>> :l question3.hs [1 of 1] Compiling Main Ok, one module loaded. >>> partition3 [] ([],[], []) >>> partition3 [3,1,8,2,3,9,7,3,0) ([1,2,0],[3,3,3], [8,9,7])