Need help for haskell coding

Will upvote if answered in 2 hours

Provide the code that will have the same output as the image shows

>>> :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]) >>> :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])