Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2018-10-29 13:11:32 -04:00
parent dd6a5974df
commit 0113982e87
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test-matrix.scm
View file

@ -116,15 +116,19 @@
(vector-ref vec i)))))) (vector-ref vec i))))))
(mat (mat
(cdr mat))) (cdr mat)))
(make-row->func 1 -1) ;(make-row->func 1 -1)
#;(zebra (first-row-perm 'child) (zebra (first-row-perm 'child)
(make-row->func 1 -1) (make-row->func 1 -1)
(make-row->func -1 1) (make-row->func -1 1)
mat mat
number-of-cols)))) number-of-cols))))
;; TODO: with this test code, why is the fast-eq inlined????
(write (zunda 1 -1)) (write (zunda 1 -1))
;
(define zebra
(lambda (row-perm row->func+ row->func- mat number-of-cols)
(write (list row-perm row->func+ row->func- mat number-of-cols))))
;(define zebra ;(define zebra
; (lambda (row-perm row->func+ row->func- mat number-of-cols) ; (lambda (row-perm row->func+ row->func- mat number-of-cols)
; (let _-*- ; (let _-*-