frectonz

@frectonz.et

100 Followers 369 Following

https://frectonz.et

screenshot of helix edit with the ayu dark theme showing the text parseNumberLine :: [Int] -> String -> [[Maybe Int]] parseNumberLine indexes s = go [] s where isGroup :: String -> Bool isGroup [] = True isGroup [' '] = True isGroup (' ' : tl) = (length s - length tl) `elem` indexes isGroup _ = False go :: [[Maybe Int]] -> String -> [[Maybe Int]] go acc (' ' : ' ' : ' ' : d : tl) | isGroup tl && isAllDigits [d] = go' ([n , n , n , y d] : acc) tl go acc (' ' : ' ' : c : d : tl) | isGroup tl && isAllDigits [c, d] = go' ([n , n , y c, y d] : acc) tl go acc (' ' : b : c : d : tl) | isGroup tl && isAllDigits [b, c, d] = go' ([n , y b, y c, y d] : acc) tl go acc (a : ' ' : ' ' : ' ' : tl) | isGroup tl && isAllDigits [a] = go' ([y a, n , n , n ] : acc) tl go acc (a : b : ' ' : ' ' : tl) | isGroup tl && isAllDigits [a, b] = go' ([y a, y b, n , n ] : acc) tl go acc (a : b : c : ' ' : tl) | isGroup tl && isAllDigits [a, b, c] = go' ([y a, y b, y c, n ] : acc) tl go acc (a : b : c : d : tl) | isGroup tl && isAllDigits [a, b, c, d] = go' ([y a, y b, y c, y d] : acc) tl go acc (' ' : ' ' : c : tl) | isGroup tl && isAllDigits [c] = go' ([n , n , y c] : acc) tl go acc (a : ' ' : ' ' : tl) | isGroup tl && isAllDigits [a] = go' ([y a, n , n ] : acc) tl go acc (' ' : b : c : tl) | isGroup tl && isAllDigits [b, c] = go' ([n , y b, y c] : acc) tl go acc (a : b : ' ' : tl) | isGroup tl && isAllDigits [a, b] = go' ([y a, y b, n ] : acc) tl go acc (a : b : c : tl) | isGroup tl && isAllDigits [a, b, c] = go' ([y a, y b, y c] : acc) tl go acc (' ' : b : tl) | isGroup tl && isAllDigits [b] = go' ([n , y b] : acc) tl go acc (a : ' ' : tl) | isGroup tl && isAllDigits [a] = go' ([y a, n ] : acc) tl go acc (a : b : tl) | isGroup tl &&
A screenshot of @frectonz.et 's cred.blue score. Showing 249 / 1000. Which is described as a "Highly Engaging Explorer Reply Guy". It also shows that the account is 409 days old.
A code screenshot that shows that pglite-fusion can run with postgres 12, 13, 14, 15, 16 and 17.
Screenshot of the CEO of Turso Glauber Costa's Bluesky profile that shows that he is following me.
envy crate example showing bare bones error reporting