如果你觉得这段代码很好读，请使用易语言。

附源代码： 附件(752B) korean.tar.bz2

【 在 wks 的大作中提到: 】 : 看，多么优雅！让我们也努力学习汉语编程吧。 : -- : [upload=1][/upload][upload=2][/upload][upload=3][/upload] : ................... gg

。。。。。。这个是宇宙起源的编程语言啊

日本人也喜欢这么弄，我在我以前的公司见过。。。。。。。。

(defun 加 (第一个数 第二个数) 第一个数+第二个数)

module Main where -- 绑定 如果 条件 肯定从句 否定从句 = if 条件 then 肯定从句 else 否定从句 加 = (+) 减 = (-) 乘 = (*) 除 = (/) 等于 = (==) 零 = 0 壹 = 1 main = 主函数 打印行 = putStrLn 打印 = putStr 显示 = show type I整数 = Int -- 程序 阶乘 :: I整数 -> I整数 阶乘 甲 = 如果 (甲 `等于` 零) 壹 (甲 `乘` (阶乘 (甲 `减` 壹))) 主函数 = do 打印行 $ 显示 $ 阶乘 10 执行： [wks@localhost haskell]$ runghc chinese.hs 3628800

wsk太犀利了

写错了，更正一下 (defun 加 (第一个数 第二个数) (+ 第一个数 第二个数)) (加 1 2) 不知道elisp下怎么替换掉defun 【 在 FadeToBlack 的大作中提到: 】 : (defun 加 (第一个数 第二个数) : 第一个数+第二个数) : -- : ...................

guile> (define 定义 define) guile> (定义 加 +) guile> (加 1 2) 3 guile> (定义 减 -) guile> (定义 乘 *) guile> (定义 等于 =) guile> (等于 1 2) #f guile> (等于 1 1) #t guile> (定义 如果 if) guile> (定义 函数 lambda) guile> (定义 阶乘 (函数 (甲) (如果 (等于 甲 0) 1 (乘 甲 (阶乘 (减 甲 1)))))) guile> (阶乘 10) 3628800 guile> (定义 余数 remainder) guile> (定义 最大公约数 (函数 (甲 乙) (如果 (等于 乙 0) 甲 (最大公约数 乙 (余数 甲 乙))))) guile> (最大公约数 18 12) 6