趣味编程：静夜思（Haskell版）

最新推荐文章于 2023-04-22 17:35:41 发布

zwvista

最新推荐文章于 2023-04-22 17:35:41 发布

阅读量1.7k

点赞数

分类专栏：静夜思趣味编程 Haskell

本文链接：https://blog.csdn.net/zwvista/article/details/45749291

版权

Haskell 同时被 3 个专栏收录

85 篇文章 10 订阅

订阅专栏

趣味编程

18 篇文章 0 订阅

订阅专栏

静夜思

10 篇文章 0 订阅

订阅专栏

-- jys.hs

import Data.Map.Strict (fromListWith, elems)

verticalWriting text offset =
    let indexedChars = zipWith (\x y -> (x `mod` offset, [y])) [0..] text
    in elems $ fromListWith (\a b -> a ++ "|" ++ b) indexedChars

main = mapM_ putStrLn $ verticalWriting "床前明月光疑是地上霜举头望明月低头思故乡" 5

{-
低|举|疑|床
头|头|是|前
思|望|地|明
故|明|上|月
乡|月|霜|光
-}