Duncan Mortimer duncanmortimer

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                duncanmortimer
                / keybase.md
            
            
              Created
              June 19, 2015 19:37
            
          
    Keybase proof

I hereby claim:

I am duncanmortimer on github.
I am duncanmortimer (https://keybase.io/duncanmortimer) on keybase.
I have a public key whose fingerprint is 5235 E44A 6B19 B27F 1D64  0DA6 4D22 9B9C E0DC E1F1

To claim this, I am signing this object:

  
## themepark.hs
module Main where

import Text.Printf

-- Processing

profit :: Integer -> Integer -> [Integer] -> Integer
profit r cap gs
    | sum gs <= cap = r * (sum gs)
    | otherwise = sum $ take (fromIntegral r) $ rideSizes 0
	module Main where

	import Text.Printf

	-- Processing

	profit :: Integer -> Integer -> [Integer] -> Integer
	profit r cap gs
	\| sum gs <= cap = r * (sum gs)
	\| otherwise = sum $ take (fromIntegral r) $ rideSizes 0