ㅁㄴ

피곤해~

오늘은 정말 끔찍한데 엘레강스한 하스켈 코드를 봤다

tests = TestList [
  "t0" ~: zipcombine (+) [1,2,3] [4,5,6,7] ~?= [5,7,9,7]
  "t1" ~: zipcombine (+) [4,5,6,7] [1,2,3] ~?= [5,7,9]
  "t2" ~: zipcombine (:) ['a','b','c'] ["hello","world"] ~?= ["ahello","bworld"] ]

zipcombine :: (a -> b -> b) -> [a] -> [b] -> [b]
zipcombine f = foldr aux id where
  aux cur acc = \case
    [] -> []
    (e:lst) -> f cur e : acc lst

오타수정

Cyberduck 처음 나왔을때만 해도 다른 FTP/SFTP클라이언트 전부 지워버렸을 정도로 좋았는데 최근들어 너무 불안정하다

특히 놋북에서 네트워크 끊기거나 하면 프로그램째로 멈춰버려

​​