Github 传送门：https://github.com/bramblex/Smooth
线上试用：http://bramblex.github.io/Smooth/
特点：
利用 do..with 语法糖轻松解决异步问题。
# 异步的 delay 函数
delay = `(ms)=>(f)=>setTimeout(()=>f(ms),ms)`
# 将一个普通的函数封装成异步函数
mkasync = `(job)=>(f)=>{job();f()}`
# 将多个异步函数串联到一起
async f g = f g
# 以同步的方式写异步，每隔一秒依次输出 "hello" "world" "smooth"
asyncJob = with async do
delay 1000
mkasync \_-> print $ "hello"
delay 2000
mkasync \_-> print "world"
n <- delay 3000 # 还可以取得异步函数的数据
mkasync \_-> print $ "smooth " + n
main _ = asyncJob \_ -> print "done"
可以自定义运算符
# 定义 `+` 符号
infixl 4 + add
add = `(x)=>(y)=>x+y`
# 定义 `<` 符号
infixl 6 < lt
lt = `(x)=>(y)=>x<y`
# 定义 `$` 符号，用来消除括号
infixr 0 $ app
app f x = f x
函数式和指令式混用
# 定义 `+` 符号
infixl 4 + add
add = `(x)=>(y)=>x+y`
# 定义 `<` 符号
infixl 6 < lt
lt = `(x)=>(y)=>x<y`
impFunc n =
let result = 0
let i = 0
while i < n
result = result + i
i = i + 1
decFunc n = if n < 0 then 0 else n + decFunc n
1
Select Language