JCGrant

// ==UserScript==
// @name         Shush.se - Extra Features
// @namespace    https://gist.github.com/JCGrant/45fdb9a8a14d7c05dc6ac70123f2d7cb
// @version      0.5
// @description  Adds various features to Shush.se
// @author       JCGrant
// @match        http://www.shush.se/index.php*
// @grant        none
// @updateURL    https://gist.github.com/JCGrant/45fdb9a8a14d7c05dc6ac70123f2d7cb/raw/shush.se-x.user.js
// ==/UserScript==

JCGrant

Keybase proof

I hereby claim:

• I am JCGrant on github.
• I am jcgrant (https://keybase.io/jcgrant) on keybase.
• I have a public key whose fingerprint is B919 ED51 D5B6 464F DE65 8485 1EBB D452 BD82 D307

To claim this, I am signing this object:

JCGrant

import Data.Maybe

isSquare :: Integer -> Bool
isSquare x
  = root ^ 2 == x
    where
      root = floor $ sqrt $ fromIntegral x

append :: [Integer] -> Integer -> [Integer]
append ys x

JCGrant

isSquare :: Integer -> Bool
isSquare x
  = root ^ 2 == x
    where
      root = floor $ sqrt $ fromIntegral x

isTruncatedSquare :: Integer -> Bool
isTruncatedSquare x
  | x < 10    = False
  | otherwise = isSquare $ x `div` 10