C 语言版的一个问题的 Haskell 实现

MMMIX

上面的 Haskell  实现共有的一个问题就是当参数 > 20 时，最后输出的三角形就歪了(当然，这个可以通过更复杂的输出函数来修正)。不知道 Emacs Lisp 的实现有没有这个问题？

[ 本帖最后由 MMMIX 于 2008-9-4 23:04 编辑 ]

aero

lisp简直就是天书啊！

我还是继续看Haskell到语法去吧。

flw

原帖由 MMMIX 于 2008-9-4 23:03 发表
上面的 Haskell  实现共有的一个问题就是当参数 > 20 时，最后输出的三角形就歪了(当然，这个可以通过更复杂的输出函数来修正)。不知道 Emacs Lisp 的实现有没有这个问题？

那个问题很好修正。
就是把一个空格变成多个空格就行了。

win_hate

原帖由 MMMIX 于 2008-9-4 23:03 发表
上面的 Haskell  实现共有的一个问题就是当参数 > 20 时，最后输出的三角形就歪了(当然，这个可以通过更复杂的输出函数来修正)。不知道 Emacs Lisp 的实现有没有这个问题？

一样是歪的，都输出那些串。

MMMIX

原帖由 flw 于 2008-9-4 23:11 发表

那个问题很好修正。
就是把一个空格变成多个空格就行了。

关键是，怎么知道变成几个？算这个会把代码搞复杂。

flw

原帖由 MMMIX 于 2008-9-5 01:11 发表

关键是，怎么知道变成几个？算这个会把代码搞复杂。

这个很简单吧。
我试试看。

flw

1. import System.Environment
   
2. import Data.List
   
3. import Text.Printf
   
4. 
   
5. f' 1 = [0]
   
6. f' n = prefix ++ middle ++ postfix
   
7.   where half = n `div` 2
   
8.         (prefix, postfix) = splitAt (half) $ f' (n-1)
   
9.         middle = if n `mod` 2 == 1
   
10.                   then [half]
    
11.                   else [half-1]
    
12. 
    
13. f'' _ 0 _ = []
    
14. f'' offset n sep = f'' (offset+1) (n-1) sep ++ [ thisLine ]
    
15.   where thisLine = white ++ foldr ((++) . (++sep)) "" items
    
16.         white = concatMap (const sep) [1..offset]
    
17.         items = map (printf $ "%" ++ (show $ length sep) ++ "d") $ f' n
    
18. 
    
19. f n = mapM_ (putStrLn) $ f'' 0 n sep
    
20.   where sep = flip replicate ' ' $ length $ show ((n-1)`div`2)
    
21. 
    
22. main = do
    
23.   [str] <- getArgs
    
24.   let n = read str
    
25.   f n

复制代码

其实思路还是很简单的，就是因为对库不太熟悉，因此很多写法有些绕。

MMMIX

我的想法是让最终输出的每一列居中对齐。不过这样做的话如果行数很多，最开始的一些行就会变的很稀疏

old-cow

lisp 的括号很好看。呵呵