• R/O
  • HTTP
  • SSH
  • HTTPS

提交

标签
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#windowsobjective-ccocoaqt誰得pythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

A categorical programming language


Commit MetaInfo

修订版fe2f84322834bf8e93345beeea67413e9c37df8a (tree)
时间2021-08-26 06:03:08
作者Corbin <cds@corb...>
CommiterCorbin

Log Message

jelly: Cite Elliott by last name.

Pedantic consistency with other documentation.

更改概述

差异

--- a/jelly/src/main.rs
+++ b/jelly/src/main.rs
@@ -9,7 +9,7 @@ fn load_tree(handle :&mut Read) -> std::io::Result<RecExpr<SymbolLang>> {
99 }
1010
1111 // Wadler 1989: https://www2.cs.sfu.ca/CourseCentral/831/burton/Notes/July14/free.pdf
12-// Conal 2013: http://conal.net/blog/posts/optimizing-cccs
12+// Elliott 2013: http://conal.net/blog/posts/optimizing-cccs
1313
1414 // Rules with names ending in "-desugar" are directly transcribed from the underlying equality.
1515
@@ -34,7 +34,7 @@ fn main() -> std::io::Result<()> {
3434 // free for snd
3535 rw!("snd-elim-pair"; "(comp (pair ?f ?g) snd)" => "?g"),
3636 rw!("pair-fst-snd"; "(pair fst snd)" => "id"),
37- // Conal 2013
37+ // Elliott 2013
3838 rw!("pair-precompose"; "(pair (comp ?r ?f) (comp ?r ?g))" => "(comp ?r (pair ?f ?g))"),
3939
4040 // free for left
@@ -59,7 +59,7 @@ fn main() -> std::io::Result<()> {
5959 rw!("uncurry-curry-cancel"; "(curry (uncurry ?f))" => "?f"),
6060
6161 rw!("app-desugar"; "app" => "(uncurry id)"),
62- // Conal 2013
62+ // Elliott 2013
6363 rw!("app-desugar-generalized"; "(comp (pair (comp ?f ?h) ?g) app)" => "(comp (pair ?f ?g) (uncurry ?h))"),
6464 rw!("app-curry"; "(comp (pair (curry ?h) ?g) app)" => "(comp (pair id ?g) ?h)"),
6565 rw!("app-curry-generalized"; "(comp (pair (comp ?f (curry ?h)) ?g) app)" => "(comp (pair ?f ?g) ?h)"),