bubblesort xs
| xs == xs' = xs'
where
xs' = bubblesortIterate xs
bubblesortIterate lst@(x:xs)
| nil xs = xs
| x
<= head xs
= x:bubblesortIterate xs
bubblesortSwap (x:y:xs) = y:x:xs
CgpidWJibGVzb3J0IHhzCgl8IHhzID09IHhzJyA9IHhzJwoJfCBvdGhlcndpc2UgPSBidWJibGVzb3J0IHhzJwoJd2hlcmUKCQl4cycgPSBidWJibGVzb3J0SXRlcmF0ZSB4cwoJCWJ1YmJsZXNvcnRJdGVyYXRlIGxzdEAoeDp4cykKCQkJfCBuaWwgeHMgICAgID0geHMKCQkJfCB4IDw9IGhlYWQgeHMgPSB4OmJ1YmJsZXNvcnRJdGVyYXRlIHhzCgkJCXwgb3RoZXJ3aXNlICAgID0gYnViYmxlc29ydFN3YXAgbHN0CgkJYnViYmxlc29ydFN3YXAgKHg6eTp4cykgPSB5Ong6eHM=