Renaming schelog to logic and racketing

This commit is contained in:
Jay McCarthy 2010-04-28 13:37:57 -06:00
parent 8a6cdfe582
commit 7cd703f034
22 changed files with 1443 additions and 1482 deletions

4
collects/logic/info.rkt Normal file
View File

@ -0,0 +1,4 @@
#lang setup/infotab
(define scribblings
'(("logic.scrbl" (multi-page) (tool))))

1421
collects/logic/logic.scrbl Normal file

File diff suppressed because it is too large Load Diff

3
collects/logic/main.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang racket
(require "logic.rkt")
(provide (all-from-out "logic.rkt"))

View File

@ -1772,8 +1772,8 @@ path/s is either such a string or a list of them.
"collects/reader" responsible (mflatt) "collects/reader" responsible (mflatt)
"collects/rnrs" responsible (mflatt) "collects/rnrs" responsible (mflatt)
"collects/s-exp" responsible (mflatt eli) "collects/s-exp" responsible (mflatt eli)
"collects/schelog" responsible (jay) "collects/logic" responsible (jay)
"collects/tests/schelog" responsible (jay) "collects/tests/logic" responsible (jay)
"collects/scheme" responsible (mflatt sstrickl samth robby eli) "collects/scheme" responsible (mflatt sstrickl samth robby eli)
"collects/scribble" responsible (mflatt eli) "collects/scribble" responsible (mflatt eli)
"collects/scribblings" responsible (mflatt eli robby mathias) "collects/scribblings" responsible (mflatt eli robby mathias)

View File

@ -1,4 +0,0 @@
#lang setup/infotab
(define scribblings
'(("schelog.scrbl" (multi-page) (tool))))

View File

@ -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

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog (require logic
schemeunit) schemeunit)
;The following is the "Biblical" database from "The Art of ;The following is the "Biblical" database from "The Art of

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog (require logic
schemeunit) schemeunit)
;The following is a simple database about a certain family in England. ;The following is a simple database about a certain family in England.

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog) (require logic)
;The following is a simple database about a certain family in England. ;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 ;Should be a piece of cake, but given here so that you can hone

View File

@ -1,5 +1,5 @@
#lang racket #lang racket
(require schelog tests/eli-tester) (require logic tests/eli-tester)
(define %factorial (define %factorial
(%rel (x y x1 y1) (%rel (x y x1 y1)

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog (require logic
"./puzzle.rkt" "./puzzle.rkt"
schemeunit) schemeunit)

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog (require logic
tests/eli-tester) tests/eli-tester)
;This is a very trivial program. In Prolog, it would be: ;This is a very trivial program. In Prolog, it would be:

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog) (require logic)
;Exercise 14.1 (iv) from Sterling & Shapiro, p. 217-8 ;Exercise 14.1 (iv) from Sterling & Shapiro, p. 217-8

View File

@ -1,12 +1,12 @@
#lang racket #lang racket
(require (except-in schelog %member)) (require (except-in logic %member))
;map coloring, example from Sterling & Shapiro, p. 212 ;map coloring, example from Sterling & Shapiro, p. 212
;(%member x y) holds if x is in y ;(%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 (define %member
(%rel (X Xs Y Ys) (%rel (X Xs Y Ys)

View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require schelog) (require logic)
(provide (all-defined-out)) (provide (all-defined-out))

View File

@ -1,9 +1,9 @@
#lang racket #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 ;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 ;(%length l n) holds if length(l) = n

View File

@ -1,5 +1,5 @@
#lang racket #lang racket
(require schelog (require logic
tests/eli-tester) tests/eli-tester)
(test (test