• R/O
  • HTTP
  • SSH
  • HTTPS

提交

标签
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-cqtcocoa誰得pythonphprubygameguibathyscaphec翻訳計画中(planning stage)omegatframeworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

A categorical programming language


Commit MetaInfo

修订版8922d03c3e61e9afc65b9c31576dd09d49f9e517 (tree)
时间2021-08-30 08:57:46
作者Corbin <cds@corb...>
CommiterCorbin

Log Message

movelist: Expose djinn functionality.

更改概述

差异

--- a/movelist.scm
+++ b/movelist.scm
@@ -1,4 +1,5 @@
11 (import (chicken process-context))
2+(import (matchable))
23 (import (mini-kanren))
34
45 ; Relate a Cammy expression to its input and output types.
@@ -61,6 +62,10 @@
6162 (define (djinn x s t)
6263 (run x (q) (cammyo q s t)))
6364
64-(begin
65- (display (type-check (read)))
66- (newline))
65+(match (map (lambda (s) (read (open-input-string s)))
66+ (command-line-arguments))
67+ [('type-check) (begin
68+ (display (type-check (read))) (newline))]
69+ [('djinn (? number? count) in out) (begin
70+ (display (djinn count in out))
71+ (newline))])
--- a/todo.txt
+++ b/todo.txt
@@ -6,3 +6,5 @@
66 * rat
77 * jelly: zero (pr ...), succ (pr ...), nil (fold ...), cons (fold ...) can all
88 be unrolled one step, allowing for loops to be inlined
9+* refactoring from the bikeshed: ignore -> !
10+* allow user-defined non-nullary functors