Renaming schelog to logic and racketing
This commit is contained in:
parent
8a6cdfe582
commit
7cd703f034
4
collects/logic/info.rkt
Normal file
4
collects/logic/info.rkt
Normal file
|
@ -0,0 +1,4 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define scribblings
|
||||
'(("logic.scrbl" (multi-page) (tool))))
|
1421
collects/logic/logic.scrbl
Normal file
1421
collects/logic/logic.scrbl
Normal file
File diff suppressed because it is too large
Load Diff
3
collects/logic/main.rkt
Normal file
3
collects/logic/main.rkt
Normal file
|
@ -0,0 +1,3 @@
|
|||
#lang racket
|
||||
(require "logic.rkt")
|
||||
(provide (all-from-out "logic.rkt"))
|
|
@ -1772,8 +1772,8 @@ path/s is either such a string or a list of them.
|
|||
"collects/reader" responsible (mflatt)
|
||||
"collects/rnrs" responsible (mflatt)
|
||||
"collects/s-exp" responsible (mflatt eli)
|
||||
"collects/schelog" responsible (jay)
|
||||
"collects/tests/schelog" responsible (jay)
|
||||
"collects/logic" responsible (jay)
|
||||
"collects/tests/logic" responsible (jay)
|
||||
"collects/scheme" responsible (mflatt sstrickl samth robby eli)
|
||||
"collects/scribble" responsible (mflatt eli)
|
||||
"collects/scribblings" responsible (mflatt eli robby mathias)
|
||||
|
|
|
@ -1,4 +0,0 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define scribblings
|
||||
'(("schelog.scrbl" (multi-page) (tool))))
|
|
@ -1,3 +0,0 @@
|
|||
#lang racket
|
||||
(require "schelog.rkt")
|
||||
(provide (all-from-out "schelog.rkt"))
|
File diff suppressed because it is too large
Load Diff
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog
|
||||
(require logic
|
||||
schemeunit)
|
||||
|
||||
;The following is the "Biblical" database from "The Art of
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog
|
||||
(require logic
|
||||
schemeunit)
|
||||
|
||||
;The following is a simple database about a certain family in England.
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog)
|
||||
(require logic)
|
||||
|
||||
;The following is a simple database about a certain family in England.
|
||||
;Should be a piece of cake, but given here so that you can hone
|
|
@ -1,5 +1,5 @@
|
|||
#lang racket
|
||||
(require schelog tests/eli-tester)
|
||||
(require logic tests/eli-tester)
|
||||
|
||||
(define %factorial
|
||||
(%rel (x y x1 y1)
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog
|
||||
(require logic
|
||||
"./puzzle.rkt"
|
||||
schemeunit)
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog
|
||||
(require logic
|
||||
tests/eli-tester)
|
||||
|
||||
;This is a very trivial program. In Prolog, it would be:
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog)
|
||||
(require logic)
|
||||
|
||||
;Exercise 14.1 (iv) from Sterling & Shapiro, p. 217-8
|
||||
|
|
@ -1,12 +1,12 @@
|
|||
#lang racket
|
||||
|
||||
(require (except-in schelog %member))
|
||||
(require (except-in logic %member))
|
||||
|
||||
;map coloring, example from Sterling & Shapiro, p. 212
|
||||
|
||||
;(%member x y) holds if x is in y
|
||||
|
||||
;; is this different from the %member provided by schelog? fencing that one out.
|
||||
;; is this different from the %member provided by logic? fencing that one out.
|
||||
|
||||
(define %member
|
||||
(%rel (X Xs Y Ys)
|
|
@ -1,6 +1,6 @@
|
|||
#lang racket
|
||||
|
||||
(require schelog)
|
||||
(require logic)
|
||||
|
||||
(provide (all-defined-out))
|
||||
|
|
@ -1,9 +1,9 @@
|
|||
#lang racket
|
||||
|
||||
(require (except-in schelog %append))
|
||||
(require (except-in logic %append))
|
||||
|
||||
;A list of trivial programs in Prolog, just so you can get used
|
||||
;to schelog syntax.
|
||||
;to logic syntax.
|
||||
|
||||
;(%length l n) holds if length(l) = n
|
||||
|
|
@ -1,5 +1,5 @@
|
|||
#lang racket
|
||||
(require schelog
|
||||
(require logic
|
||||
tests/eli-tester)
|
||||
|
||||
(test
|
Loading…
Reference in New Issue
Block a user