vin / challenge

Python challenge and project euler

This URL has Read+Write access

challenge / euler / euler042.hs
100644 16 lines (11 sloc) 0.288 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

import Char
import List
import Maybe
 
score = sum . map ((flip (-) 64) . ord)
 
tri n = n * (n+1) `div` 2
tris = map tri [1..]
 
main = do 
	f <- readFile "words.txt"
	let scores = map score $ lines f in
		print . length $ map show [n | n <- scores,
						n `elem` (takeWhile (<=n) tris)]