fork download
copy 
  1. import           Data.List
  2.  
  3. main :: IO ()
  4. main = interact
  5.      $ unlines
  6.      . map (show . dictIndex)
  7.      . lines
  8.  
  9. dictIndex :: Ord a => [a] -> Integer
  10. dictIndex = sum
  11.           . zipWith ((*) <$> fac) [0..]
  12.           . reverse
  13.           . (zipWith countLower <*> tails)
  14.   where
  15.     countLower :: Ord a => a -> [a] -> Integer
  16.     countLower c = genericLength . filter (< c)
  17.  
  18. fac :: Integer -> Integer
  19. fac 0 = 1
  20. fac x = x * fac (x - 1)
Success #stdin #stdout 0s 8388607KB
comments (?)
stdin
copy 
Argo
Phineas
Xenophilus
vKbYXZjzsxMfcl7Fu6kaHWhRQE0iqr8dCpoDeUTt2NAwnOPyg51I49LmVJS3GB
WnaojzNv6q1XrSbD8OR4FQKeEU0VTgHYMxJyiP32m5IcZ7utwlshAdBLfC9pGk
Boom
Orthodox
Assassination
stdout
copy 
4
302
17641
29103563414182128504865512329269607390047315573979063265767919966424857355013478975571
16646940393791728941964690469055330366549308849162698368036414426663915495795177039268
3
3390
305092339
https://ideone.com/ocl8A0
language:
Haskell (ghc 8.4.4)
created:
8 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!