[Haskell] CodeWars|Build a pile of Cubes

https://www.codewars.com/kata/5592e3bd57b64d00f3000047/haskell

题目

你的任务是构建一个建筑物，这个建筑物由n个立方体构成，最底层的立方体体积为$n^3$，直到最高层的立方体体积为$1^3$。

给定整个建筑物的总体积m，你知道这个建筑物有多少个立方体吗？

如果没有n能对应m，输出-1。

样例

findNb 1071225 = 45
findNb 91716553919377 = -1

题解

因为

$$1^3+2^3+\cdots+n^3=(1+2+\cdots+n)^2=\left(\frac{n(n+1)}{2}\right)^2$$
所以。。

module Codewars.Kata.PileOfCubes where

findNb :: Integer -> Integer

findNb m
    | div (root * (root + 1)) 2 ^ 2 == m = root
    | otherwise = -1
    where
        intSqrt = floor . sqrt . fromIntegral
        root = intSqrt (intSqrt m * 2)