fork download

copy

import Data.List
 
ans :: [String] -> Int
ans strings = exact_2 * exact_3
  where
    exact_2 = 1
    exact_3 = 3
 
charFreqs' :: [String] -> Int
charFreqs' = map length . groupBy (==) . sort
 
 
 
tuff.hs:10:14: error:
    • Couldn't match type ‘[Int]’ with ‘Int’
      Expected type: [String] -> Int
        Actual type: [String] -> [Int]
    • In the expression: map length . groupBy (==) . sort
      In an equation for ‘charFreqs'’:
          charFreqs' = map length . groupBy (==) . sort
   |
10 | charFreqs' = map length . groupBy (==) . sort
   |              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Failed, no modules loaded.

prog.c:1:1: error: unknown type name ‘import’; did you mean ‘short’?
 import Data.List
 ^~~~~~
 short
prog.c:1:12: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or ‘__attribute__’ before ‘.’ token
 import Data.List
            ^
prog.c:9:10: warning: missing terminating ' character
 charFreqs' :: [String] -> Int
          ^
prog.c:9:10: error: missing terminating ' character
 charFreqs' :: [String] -> Int
          ^~~~~~~~~~~~~~~~~~~~
prog.c:10:10: warning: missing terminating ' character
 charFreqs' = map length . groupBy (==) . sort
          ^
prog.c:10:10: error: missing terminating ' character
 charFreqs' = map length . groupBy (==) . sort
          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.c:15:5: error: stray ‘\342’ in program
     • Couldn't match type ‘[Int]’ with ‘Int’
     ^
prog.c:15:6: error: stray ‘\200’ in program
     • Couldn't match type ‘[Int]’ with ‘Int’
      ^
prog.c:15:7: error: stray ‘\242’ in program
     • Couldn't match type ‘[Int]’ with ‘Int’
       ^
prog.c:15:15: warning: missing terminating ' character
     • Couldn't match type ‘[Int]’ with ‘Int’
               ^
prog.c:15:15: error: missing terminating ' character
     • Couldn't match type ‘[Int]’ with ‘Int’
               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.c:18:5: error: stray ‘\342’ in program
     • In the expression: map length . groupBy (==) . sort
     ^
prog.c:18:6: error: stray ‘\200’ in program
     • In the expression: map length . groupBy (==) . sort
      ^
prog.c:18:7: error: stray ‘\242’ in program
     • In the expression: map length . groupBy (==) . sort
       ^
prog.c:19:26: error: stray ‘\342’ in program
       In an equation for ‘charFreqs'’:
                          ^
prog.c:19:27: error: stray ‘\200’ in program
       In an equation for ‘charFreqs'’:
                           ^
prog.c:19:28: error: stray ‘\230’ in program
       In an equation for ‘charFreqs'’:
                            ^
prog.c:19:38: warning: missing terminating ' character
       In an equation for ‘charFreqs'’:
                                      ^
prog.c:19:38: error: missing terminating ' character
       In an equation for ‘charFreqs'’:
                                      ^~~~~
prog.c:20:20: warning: missing terminating ' character
           charFreqs' = map length . groupBy (==) . sort
                    ^
prog.c:20:20: error: missing terminating ' character
           charFreqs' = map length . groupBy (==) . sort
                    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
prog.c:22:15: warning: missing terminating ' character
 10 | charFreqs' = map length . groupBy (==) . sort
               ^
prog.c:22:15: error: missing terminating ' character
 10 | charFreqs' = map length . groupBy (==) . sort
               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Standard output is empty