fixed the wording
This commit is contained in:
		
							parent
							
								
									356ccc9ad2
								
							
						
					
					
						commit
						1a6d74520d
					
				
							
								
								
									
										4
									
								
								day4.hs
									
									
									
									
									
								
							
							
						
						
									
										4
									
								
								day4.hs
									
									
									
									
									
								
							| 
						 | 
					@ -13,8 +13,8 @@ main = do
 | 
				
			||||||
      ansA = length $ filter (== True) $ map solveA ls
 | 
					      ansA = length $ filter (== True) $ map solveA ls
 | 
				
			||||||
      ansB = length $ filter (== True) $ map solveB ls
 | 
					      ansB = length $ filter (== True) $ map solveB ls
 | 
				
			||||||
   in do 
 | 
					   in do 
 | 
				
			||||||
     putStrLn $ "day3a: " ++ (show ansA)
 | 
					     putStrLn $ "day4a: " ++ (show ansA)
 | 
				
			||||||
     putStrLn $ "day3b: " ++ (show ansB)
 | 
					     putStrLn $ "day4b: " ++ (show ansB)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
rtags :: [String]
 | 
					rtags :: [String]
 | 
				
			||||||
rtags = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]
 | 
					rtags = ["byr", "iyr", "eyr", "hgt", "hcl", "ecl", "pid"]
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
							
								
								
									
										4
									
								
								day5.hs
									
									
									
									
									
								
							
							
						
						
									
										4
									
								
								day5.hs
									
									
									
									
									
								
							| 
						 | 
					@ -10,8 +10,8 @@ main = do
 | 
				
			||||||
      ansA = maximum ls
 | 
					      ansA = maximum ls
 | 
				
			||||||
      ansB = findGap $ sort ls
 | 
					      ansB = findGap $ sort ls
 | 
				
			||||||
   in do 
 | 
					   in do 
 | 
				
			||||||
     putStrLn $ "day3a: " ++ (show ansA)
 | 
					     putStrLn $ "day5a: " ++ (show ansA)
 | 
				
			||||||
     putStrLn $ "day3b: " ++ (show ansB)
 | 
					     putStrLn $ "day5b: " ++ (show ansB)
 | 
				
			||||||
 | 
					
 | 
				
			||||||
validate :: String -> Bool
 | 
					validate :: String -> Bool
 | 
				
			||||||
validate s =
 | 
					validate s =
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in a new issue