The problem I'm trying to solve is the simple but lovely euler 62.

The cube, 41063625 (3453), can be permuted to produce two other cubes: 56623104 (3843) and 66430125 (4053). In fact, 41063625 is the smallest cube which has exactly three permutations of its digits which are also cube.

Find the smallest cube for which exactly five permutations of its digits are cube.

A bit of fun coding after a statistics midterm last night and the solution should be in the bag. Except it isn't, I am doing something wrong somehow and I can't figure out what! Hopefully someone a bit better than me can shed some light whether my proposed solution is wrong or I just suck at Haskell.

## Algorithm

- Generate cubes up to 10,000
- Every cube is a pair of a digit-ordered string
*n^3*and*n, _for instance*("279",9)_ - Order cubes by the string number presentation
- Group together all cubes with the same
*n^3* - Pick out groups with the size of 5
- Sort by
*n* - Pick the smallest number

Should work in principle right? So why doesn't the website accept my answer *(5027)*? My guess is I'm doing something wrong in the sorting and grouping department and I was hoping someone with a bit more knowledge of Haskell could point out where I'm being stupid.

## Code

import Data.Listcubes::(Num a) => a -> [(String, a)]cubes 1 = [(show 1, 1)]cubes n = (sort$show(n^3), n):(cubes $ n-1)sortStrNum (s1, n1) (s2, n2)| length s1 == length s2 = compare s1 s2| otherwise = compare (length s1) (length s2)permuted_cubes n =groupBy (\a b -> fst a == fst b) $ sortBy sortStrNum $ cubes nfives n =filter (\xs -> length xs == 5) $ permuted_cubes ncomparing p x y = compare (p x) (p y)smallest =head $ sortBy (comparing snd) $ head $ fives 100000

The whole thing looks kind of alright to me, no matter how much I poke around it doesn't seem like something is misbehaving ... but it still is.

Ideas?

###### Related articles

- Collatz, Haskell and Memoization (swizec.com)
- Learning me a Haskell (swizec.com)
- Converting Haskell Polymorphic Cosine function to F# (stackoverflow.com)
- Mutable, (possibly parallel) Haskell code and performance tuning (stackoverflow.com)
- Will this Haskell code take too much memory? (stackoverflow.com)
- Exceptions in Haskell (stackoverflow.com)

## Learned something new?

Want to become an expert?

Here's how it works 👇

Leave your email and I'll send you thoughtfully written emails every week about **React**, **JavaScript**, and **your career**. Lessons learned over 20 years in the industry working with companies ranging from tiny startups to Fortune5 behemoths.

### Join Swizec's Newsletter

And get thoughtful letters 💌 on **mindsets, tactics, and technical skills** for your career. Real lessons from building production software. No bullshit.

"Man, love your simple writing! Yours is the only newsletter I open and only blog that I give a fuck to read & scroll till the end. And wow always take away lessons with me. Inspiring! And very relatable. 👌"

**Have a burning question that you think I can answer?** I don't have all of the answers, but I have some! Hit me up on twitter or book a 30min ama for in-depth help.

**Ready to Stop copy pasting D3 examples and create data visualizations of your own?**
Learn how to build scalable dataviz components your whole team can understand
with React for Data Visualization

**Curious about Serverless and the modern backend?** Check out
Serverless Handbook, modern backend for the frontend engineer.

**Ready to learn how it all fits together and build a modern webapp from scratch?**
Learn how to launch a webapp and make your first 💰 on the side with ServerlessReact.Dev

**Want to brush up on your modern JavaScript syntax?** Check out my interactive cheatsheet: es6cheatsheet.com

**By the way, just in case no one has told you it yet today: I love and appreciate you for who you are ❤️**