Recent

• How to get accepted in Fileice (200% Working) 22/2012
• Premium Account
• FILE HOSTS PREMIUM ACCOUNT
• ALL FILE HOST PREMIUM ACCOUNTS
• Zynga Slingo Trainer v5.12
• iTunes Gift Card Generator V3.1 2012
• Diablo 3 GOLD Coins FREE
• Working PS3 Jailbreak 3.65 And 3.66
• ExtaBit Premium Accounts and Cookies
• Steam Wallet Hack - Money Adder & Hack v3

Popular

• XBOX POINTS GENERATOR - MICROSOFT POINTS GENERATOR v1.2012
• 11 may 2012 premium uploading accounts 100% working
• Free Microsoft Points
• Free Microsoft Points - Microsoft Points Generator - Xbox Live Codes 2012
• Car Town Free Blue Points Hack
• Free CarTown Blue Points Generator and CarTown Templates
• Better way to get content via jQuery $.get()
• Free Microsoft Points
• Simple Days Purger
• Sharecash Downloader Bypass Surveys New 05/2012

Pastable version of compressing an array of integers

<pre class='prettyprint' language='haskell'>compress :: [Int] -&gt; [[Int]] compress (x:xs) = let (y,ys) = walk x xs in [x,y]:compress ys where walk :: Int -&gt; [Int] -&gt; (Int,[Int]) walk c v@(y:ys) = let (z,zs) = walk y ys in if y == c + 1 then (z + 1,zs) else (1,v) walk c [] = (1,[]) compress [] = []</pre> <a href="http://www.refactormycode.com/codes/824-compressing-an-array-of-integers" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>