[今天生日]造了个编译到 JavaScript 的语言取名叫做 Smooth

[bramblex]

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

[southwolf]

生日快乐！

[bramblex]

@southwolf 谢谢 /w\

[Slienc7]

🎉生日快乐🎉

[lichun]

happy birthday

[shyling]

`我不是 js`

[bramblex]

@shyling

主要方便和 js 之间互操作 /w\

[bramblex]

@Slienc7
@lichun

谢谢 ～ OwO ～

[ctsed]

明年就可以一起过生日了

[mactaew]

黑皮波斯忒

[zzNucker]

迟到的生快~！

[aprikyblue]

快生

[upczww]

膜拜大神，生日快乐，好像晚了

[justjavac]

生日快乐\^O^/

[4679kun]

迟到的生快(=ﾟωﾟ)=

[msg7086]

这位姐姐生快～

[hewigovens]

github 上的 readme 发现一处错别字，“其本质就是一个简单的 CPS 变幻” 应为 “变换”？

[xiamx]

生日快乐！

[linux40]

完成之后马上弃坑么。。。

[bramblex]

@hewigovens 对… cps 变换，输入法的锅

[bramblex]

@linux40 不准备弃坑…我是准备拿这东西实用的…模块系统和类型系统还没加上去