<commit_before>module ProjectEuler.Problem53
  ( problem
  ) where

import ProjectEuler.Types

problem :: Problem
problem = pureProblem 53 Solved result

sel :: Integer -> Integer -> Integer
sel n r = product [n-r+1..n] `div` product [1..r]

result :: Integer
result = sum [1 | n <- [1..100], r<-[0..n], sel n r >1000000 ]
<commit_msg>p53: cleanup<commit_after>module ProjectEuler.Problem53
  ( problem
  ) where

import ProjectEuler.Types

problem :: Problem
problem = pureProblem 53 Solved result

sel :: Integer -> Integer -> Integer
sel n r = product [n-r+1..n] `div` product [1..r]

result :: Int
result = length [ () | n <- [1..100], r <- [0..n], sel n r > 1000000 ]

{'fraction_non_alphanumeric': 0.15304606240713226, 'fraction_numerical': 0.05794947994056464, 'mean_word_length': 3.4342105263157894, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '1874944', 'n_tokens_mistral': 262, 'n_tokens_neox': 226, 'n_words': 75}