fork download
copy 
  1. import Data.List
  2. import Data.Char
  3. import Data.Function
  4. main = print $ (tail >>= (((++ [100]) . filter (/=0) . nub . map read . concat) .) . zipWith (\x y -> map (map intToDigit) [[y], [y, x]]) $ concatMap (map digitToInt . show) $ [1..100]) == (sortBy (compare `on` (flip findIndex (tails $ concatMap show ls) . isPrefixOf . show)) ls)
  5.   where ls = [1..100]
  6.  
Success #stdin #stdout 0s 6340KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
True
https://ideone.com/98xCv5
language:
Haskell (ghc 8.4.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!