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

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

zwvista

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

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/zwvista/article/details/45749291

Haskell 同时被 3 个专栏收录

85 篇文章

订阅专栏

趣味编程

18 篇文章

订阅专栏

静夜思

10 篇文章

订阅专栏

本文深入解析了一段使用Map和List进行数据处理及垂直文字布局的代码，详细介绍了导入数据的方法、使用从ListWith进行操作的技巧，并通过实例展示了如何实现文字的垂直排列。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

-- 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

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