Posts
Blog
Repos
About
Samuel
@samuel.fm
ok the haskell compiler is insane, love this shit
9
![getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (== True) (map (isValidNumber x) rows) then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreich3ewc5q547pdqmglf6bwyqtw2rkq5jzlzbobnef7l6sbynbr6ra "getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (== True) (map (isValidNumber x) rows) then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows")
![getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (isValidNumber x) rows then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:p2cp5gopk7mgjegy6wadk3ep/bafkreierdnibps2pa3d4m6ilczdeqcwovh6knnx2l3yo2teir6ueyehqie "getSumOfValidNumbers :: [Number] -> [String] -> Int
getSumOfValidNumbers [] _ = 0
getSumOfValidNumbers (x : xs) rows =
(if all (isValidNumber x) rows then let Number {value} = x in value else 0)
+ getSumOfValidNumbers xs rows")