Skip to content

Instantly share code, notes, and snippets.

@malisper
Created September 24, 2015 16:32
Show Gist options
  • Save malisper/c54eb0ddf81e72973a97 to your computer and use it in GitHub Desktop.
Save malisper/c54eb0ddf81e72973a97 to your computer and use it in GitHub Desktop.
>> (def test (seed)
(flet1 gen () (pop seed)
(ret result (vector 1 2 3)
(up i 0 3
(swap (aref result i) (aref result (gen)))))))
TEST
>> (test)
; Evaluation aborted on #<SB-INT:SIMPLE-PROGRAM-ERROR "invalid number of arguments: ~S" {1004E51A23}>.
>> (test '(0 0 0))
#(3 1 2)
>> (test '(0 0 0))
#(3 1 2)
>> (test '(0 0 1))
#(2 3 1)
>> (test '(0 0 2))
#(2 1 3)
>> (test '(0 1 2))
#(1 2 3)
>> (accum a
(up i 0 3
(up j 0 3
(up k 0 3
(a (test (list i j k)))))))
(#(3 1 2) #(2 3 1) #(2 1 3) #(3 2 1) #(1 3 2) #(1 2 3) #(2 3 1) #(1 2 3)
#(1 3 2) #(3 2 1) #(1 3 2) #(1 2 3) #(3 1 2) #(2 3 1) #(2 1 3) #(1 3 2)
#(2 1 3) #(2 3 1) #(1 3 2) #(2 1 3) #(2 3 1) #(1 2 3) #(3 1 2) #(3 2 1)
#(2 1 3) #(3 2 1) #(3 1 2))
>> (counts *)
#<HASH-TABLE :TEST EQUALP :COUNT 6 {1005F126E3}>
>> (tablist *)
((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
>> (def trial ()
(ret result (vector 1 2 3)
(up i 0 3
(swap (aref result i) (aref result (rand 3))))))
TRIAL
>> (n-of 10000 (trial))
(#(3 1 2) #(2 1 3) #(3 2 1) #(2 1 3) #(3 1 2) #(2 1 3) #(3 2 1) #(2 3 1)
#(1 2 3) #(3 1 2) #(1 3 2) #(1 3 2) #(2 3 1) #(1 3 2) #(2 1 3) #(1 2 3)
#(2 1 3) #(1 2 3) #(2 1 3) #(2 3 1) #(1 3 2) #(2 1 3) #(1 3 2) #(1 2 3)
#(3 2 1) #(2 1 3) #(1 2 3) #(2 1 3) #(1 3 2) #(1 3 2) #(2 1 3) #(3 1 2)
#(1 3 2) #(3 1 2) #(2 3 1) #(2 1 3) #(2 1 3) #(1 2 3) #(3 1 2) #(1 3 2)
#(2 3 1) #(1 3 2) #(3 2 1) #(2 3 1) #(3 2 1) #(2 1 3) #(1 2 3) #(1 3 2)
#(2 1 3) #(3 2 1) #(1 3 2) #(3 1 2) #(2 1 3) #(1 3 2) #(3 2 1) #(3 1 2)
#(1 2 3) #(2 1 3) #(2 1 3) #(1 3 2) #(3 2 1) #(2 3 1) #(2 1 3) #(3 2 1)
#(1 3 2) #(1 3 2) #(3 1 2) #(3 2 1) #(1 3 2) #(3 2 1) #(2 3 1) #(3 1 2)
#(2 1 3) #(2 3 1) #(2 3 1) #(1 3 2) #(3 1 2) #(1 3 2) #(3 2 1) #(2 1 3)
#(2 3 1) #(1 3 2) #(1 3 2) #(2 3 1) #(2 3 1) #(2 1 3) #(2 3 1) #(2 3 1)
#(3 1 2) #(2 3 1) #(1 2 3) #(2 3 1) #(1 2 3) #(2 1 3) #(2 3 1) #(3 1 2)
#(3 2 1) #(2 3 1) #(3 2 1) #(2 1 3) #(2 1 3) #(2 1 3) #(1 2 3) #(2 3 1)
#(1 3 2) #(1 3 2) #(3 1 2) #(1 2 3) #(2 1 3) #(1 3 2) #(1 2 3) #(2 3 1)
#(3 2 1) #(1 3 2) #(2 1 3) #(1 3 2) #(2 1 3) #(3 1 2) #(3 1 2) #(2 1 3)
#(2 1 3) #(3 1 2) #(1 2 3) #(2 3 1) #(2 3 1) #(1 2 3) #(3 2 1) #(2 3 1)
#(3 2 1) #(1 3 2) #(2 1 3) #(2 1 3) #(2 1 3) #(2 3 1) #(2 1 3) #(2 1 3)
#(2 3 1) #(1 3 2) #(3 2 1) #(3 2 1) #(3 2 1) #(1 3 2) #(2 1 3) #(1 2 3)
#(1 3 2) #(2 1 3) #(2 3 1) #(2 3 1) #(2 3 1) #(2 3 1) #(3 2 1) #(1 2 3)
#(1 2 3) #(1 2 3) #(2 3 1) #(2 3 1) #(3 1 2) #(2 3 1) #(2 3 1) #(2 1 3)
#(1 3 2) #(3 2 1) #(3 2 1) #(3 1 2) #(2 3 1) #(2 1 3) #(2 1 3) #(3 1 2)
#(1 3 2) #(3 1 2) #(2 3 1) #(3 1 2) #(1 3 2) #(2 1 3) #(3 1 2) #(1 2 3)
#(3 1 2) #(3 1 2) #(2 3 1) #(1 2 3) #(2 3 1) #(1 3 2) #(2 3 1) #(3 2 1)
#(1 2 3) #(2 1 3) #(1 2 3) #(2 3 1) #(2 1 3) #(1 3 2) #(1 3 2) #(2 3 1)
#(3 1 2) #(2 1 3) #(1 2 3) #(3 1 2) #(3 2 1) #(1 2 3) #(2 1 3) #(1 3 2)
#(2 1 3) #(1 2 3) #(2 1 3) #(2 1 3) #(1 2 3) #(3 2 1) #(1 3 2) #(2 1 3)
#(1 2 3) #(1 3 2) #(1 2 3) #(2 1 3) #(3 1 2) #(1 2 3) #(2 1 3) #(2 1 3)
#(1 2 3) #(2 3 1) #(3 1 2) #(2 1 3) #(2 3 1) #(1 3 2) #(3 2 1) #(2 3 1)
#(3 1 2) #(3 1 2) #(2 1 3) #(3 1 2) #(3 2 1) #(2 3 1) #(1 3 2) #(1 2 3)
#(3 2 1) #(1 2 3) #(3 1 2) #(1 2 3) #(1 3 2) #(1 2 3) #(2 1 3) #(2 3 1)
#(2 1 3) #(3 1 2) #(3 1 2) #(1 3 2) #(2 3 1) #(2 3 1) #(3 2 1) #(1 2 3)
#(2 1 3) #(3 2 1) #(2 1 3) #(1 2 3) #(1 3 2) #(2 1 3) #(2 3 1) #(2 1 3)
#(2 1 3) #(1 2 3) #(1 2 3) #(3 2 1) #(1 2 3) #(2 1 3) #(3 2 1) #(1 2 3)
#(3 2 1) #(2 3 1) #(1 3 2) #(3 1 2) #(2 1 3) #(2 3 1) #(3 1 2) #(2 1 3)
#(1 2 3) #(2 3 1) #(2 1 3) #(2 1 3) #(2 3 1) #(3 2 1) #(2 3 1) #(1 3 2)
#(2 1 3) #(2 3 1) #(2 3 1) #(2 3 1) #(2 1 3) #(2 3 1) #(2 1 3) #(3 2 1)
#(3 2 1) #(3 2 1) #(2 1 3) #(3 1 2) #(1 2 3) #(1 3 2) #(2 1 3) #(2 3 1)
#(1 3 2) #(3 2 1) #(1 3 2) #(2 1 3) #(2 3 1) #(1 2 3) #(3 2 1) #(3 1 2)
#(1 3 2) #(1 2 3) #(2 3 1) #(2 1 3) #(1 3 2) #(3 1 2) #(1 3 2) #(3 2 1)
#(3 1 2) #(3 1 2) #(2 3 1) #(3 1 2) #(1 2 3) #(1 2 3) #(2 3 1) #(2 3 1) ..)
>> (counts *)
#<HASH-TABLE :TEST EQUALP :COUNT 6 {100676FDE3}>
>> (tablist *)
((#(1 3 2) 1872) (#(1 2 3) 1422) (#(2 3 1) 1801) (#(3 2 1) 1511)
(#(2 1 3) 1897) (#(3 1 2) 1497))
>> (def execute (init shuffle)
(accum a
(each x shuffle
(a (elt init (dec x))))))
EXECUTE
>> (execute '(1 2 3) '(1 2 3))
(1 2 3)
>> (execute '(1 2 3) '(2 1 3))
(2 1 3)
>> (execute '(1 2 3) '(3 2 1))
(3 2 1)
>> (execute '(3 2 1) '(3 2 1))
(1 2 3)
>> (execute '(2 1 3) '(2 1 3))
(1 2 3)
>> (execute '(3 1 2) '(3 1 2))
(2 3 1)
>> '((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
((#(1 2 3) 4) (#(1 3 2) 5) (#(3 2 1) 4) (#(2 1 3) 5) (#(2 3 1) 5) (#(3 1 2) 4))
>> (accum a
(each start (cars *)
(each (shuffle count) *
(a (list start (execute start shuffle) count)))))
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
(#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
(#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
(#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
(#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
(#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
(#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
(#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
(#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
(#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
(#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
(#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (len *)
36
>> **
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
(#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
(#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
(#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
(#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
(#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
(#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
(#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
(#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
(#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
(#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
(#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (defparameter gen* 0)
GEN*
>> **
((#(1 2 3) (1 2 3) 4) (#(1 2 3) (1 3 2) 5) (#(1 2 3) (3 2 1) 4)
(#(1 2 3) (2 1 3) 5) (#(1 2 3) (2 3 1) 5) (#(1 2 3) (3 1 2) 4)
(#(1 3 2) (1 3 2) 4) (#(1 3 2) (1 2 3) 5) (#(1 3 2) (2 3 1) 4)
(#(1 3 2) (3 1 2) 5) (#(1 3 2) (3 2 1) 5) (#(1 3 2) (2 1 3) 4)
(#(3 2 1) (3 2 1) 4) (#(3 2 1) (3 1 2) 5) (#(3 2 1) (1 2 3) 4)
(#(3 2 1) (2 3 1) 5) (#(3 2 1) (2 1 3) 5) (#(3 2 1) (1 3 2) 4)
(#(2 1 3) (2 1 3) 4) (#(2 1 3) (2 3 1) 5) (#(2 1 3) (3 1 2) 4)
(#(2 1 3) (1 2 3) 5) (#(2 1 3) (1 3 2) 5) (#(2 1 3) (3 2 1) 4)
(#(2 3 1) (2 3 1) 4) (#(2 3 1) (2 1 3) 5) (#(2 3 1) (1 3 2) 4)
(#(2 3 1) (3 2 1) 5) (#(2 3 1) (3 1 2) 5) (#(2 3 1) (1 2 3) 4)
(#(3 1 2) (3 1 2) 4) (#(3 1 2) (3 2 1) 5) (#(3 1 2) (2 1 3) 4)
(#(3 1 2) (1 3 2) 5) (#(3 1 2) (1 2 3) 5) (#(3 1 2) (2 3 1) 4))
>> (mapeach (x . y) *
(cons (coerce x 'list) y))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (defparameter table* (table :test #'iso))
TABLE*
>> (= gen* -1)
-1
>> (def list->num (x) (or= table*.x (++ gen*)))
LIST->NUM
>> '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (def build-matrix ()
(ret result (make-array (list 6 6) :initial-element 0)
(each (start end num) *
(= (aref result (list->num start) (list-num end))
num))))
; in: DEF BUILD-MATRIX
; (>::LIST-NUM >::END)
;
; caught STYLE-WARNING:
; undefined function: LIST-NUM
;
; compilation unit finished
; Undefined function:
; LIST-NUM
; caught 1 STYLE-WARNING condition
BUILD-MATRIX
>> (def build-matrix (mappings)
(ret result (make-array (list 6 6) :initial-element 0)
(each (start end num) mappings
(= (aref result (list->num start) (list->num end))
num))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> ***
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4 5 4 5 5 4)
(5 4 5 4 4 5)
(4 4 4 5 5 5)
(5 5 4 4 5 4)
(4 4 5 5 4 5)
(5 5 5 4 4 4))
>> (def build-matrix (mappings)
(ret result (make-array (list 6 6) :initial-element 0)
(each (start end num) mappings
(= (aref result (list->num start) (list->num end))
(/ num 27)))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> ***
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4/27 5/27 4/27 5/27 5/27 4/27)
(5/27 4/27 5/27 4/27 4/27 5/27)
(4/27 4/27 4/27 5/27 5/27 5/27)
(5/27 5/27 4/27 4/27 5/27 4/27)
(4/27 4/27 5/27 5/27 4/27 5/27)
(5/27 5/27 5/27 4/27 4/27 4/27))
>> (def list->num (x)
(cadr (assoc x '((1 2 3) 0) ((1 3 2) 1)
((2 1 3) 2) ((2 3 1) 3)
((3 1 2) 4) ((3 2 1) 5))))
; in: DEF LIST->NUM
; ((1 3 2) 1)
;
; caught ERROR:
; illegal function call
; ((2 1 3) 2)
;
; caught ERROR:
; illegal function call
; ((2 3 1) 3)
;
; caught ERROR:
; illegal function call
; ((3 1 2) 4)
;
; caught ERROR:
; illegal function call
; ((3 2 1) 5)
;
; caught ERROR:
; illegal function call
; (ASSOC >::X '((1 2 3) 0) ((1 3 2) 1) ((2 1 3) 2) ((2 3 1) 3) ((3 1 2) 4)
; ((3 2 1) 5))
;
; caught WARNING:
; The function has an odd number of arguments in the keyword portion.
;
; compilation unit finished
; caught 5 ERROR conditions
; caught 1 WARNING condition
STYLE-WARNING: redefining >::LIST->NUM in DEFUN
LIST->NUM
>> (def list->num (x)
(cadr (assoc x '(((1 2 3) 0) ((1 3 2) 1)
((2 1 3) 2) ((2 3 1) 3)
((3 1 2) 4) ((3 2 1) 5))
:test #'iso)))
STYLE-WARNING: redefining >::LIST->NUM in DEFUN
LIST->NUM
>> (list->num '(1 2 3))
0
>> (list->num '(2 1 3))
2
>> '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4))
>> (build-matrix *)
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
(5/27 4/27 4/27 4/27 5/27 5/27)
(5/27 5/27 4/27 5/27 4/27 4/27)
(4/27 4/27 5/27 4/27 5/27 5/27)
(5/27 5/27 4/27 4/27 4/27 5/27)
(4/27 4/27 5/27 5/27 5/27 4/27))
>> (def mult (a b)
(ret result (make-array (array-dimensions a) :initial-element 0)
(up i 0 (array-dimension a 0)
(up j 0 (array-dimension b 1)
(up k 0 (array-dimension a 1)
(++ result.i.j (* a.i.k b.k.j)))))))
MULT
>> **
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
(5/27 4/27 4/27 4/27 5/27 5/27)
(5/27 5/27 4/27 5/27 4/27 4/27)
(4/27 4/27 5/27 4/27 5/27 5/27)
(5/27 5/27 4/27 4/27 4/27 5/27)
(4/27 4/27 5/27 5/27 5/27 4/27))
>> (mult * *)
#2A((122/729 121/729 121/729 121/729 122/729 122/729)
(121/729 122/729 122/729 122/729 121/729 121/729)
(121/729 121/729 122/729 121/729 122/729 122/729)
(122/729 122/729 121/729 122/729 121/729 121/729)
(121/729 121/729 122/729 122/729 122/729 121/729)
(122/729 122/729 121/729 121/729 121/729 122/729))
>> (mult * *)
#2A((88574/531441 88573/531441 88573/531441 88573/531441 88574/531441
88574/531441)
(88573/531441 88574/531441 88574/531441 88574/531441 88573/531441
88573/531441)
(88573/531441 88573/531441 88574/531441 88573/531441 88574/531441
88574/531441)
(88574/531441 88574/531441 88573/531441 88574/531441 88573/531441
88573/531441)
(88573/531441 88573/531441 88574/531441 88574/531441 88574/531441
88573/531441)
(88574/531441 88574/531441 88573/531441 88573/531441 88573/531441
88574/531441))
>> #2A((4/27 5/27 5/27 5/27 4/27 4/27)
(5/27 4/27 4/27 4/27 5/27 5/27)
(5/27 5/27 4/27 5/27 4/27 4/27)
(4/27 4/27 5/27 4/27 5/27 5/27)
(5/27 5/27 4/27 4/27 4/27 5/27)
(4/27 4/27 5/27 5/27 5/27 4/27))
#2A((4/27 5/27 5/27 5/27 4/27 4/27)
(5/27 4/27 4/27 4/27 5/27 5/27)
(5/27 5/27 4/27 5/27 4/27 4/27)
(4/27 4/27 5/27 4/27 5/27 5/27)
(5/27 5/27 4/27 4/27 4/27 5/27)
(4/27 4/27 5/27 5/27 5/27 4/27))
>> (mapv #'float (linearlize *))
#(0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815 0.18518518
0.14814815 0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.18518518
0.14814815 0.18518518 0.14814815 0.14814815 0.14814815 0.14814815 0.18518518
0.14814815 0.18518518 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815
0.14814815 0.18518518 0.14814815 0.14814815 0.18518518 0.18518518 0.18518518
0.14814815)
>> (make-array (list 6 6) :displaced-to *)
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mult * *)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> (mult * *)
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666758)
(0.1666657 0.16666758 0.1666676 0.1666676 0.16666572 0.1666657)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666758)
(0.16666758 0.16666758 0.16666572 0.16666758 0.16666572 0.1666657)
(0.1666657 0.1666657 0.1666676 0.1666676 0.1666676 0.1666657)
(0.16666758 0.16666758 0.1666657 0.1666657 0.1666657 0.1666676))
>> ***
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (def mexpt (a n)
(calln (dec n) [mult a _] a))
; in: DEF MEXPT
; (CLAMP:CALLN (CLAMP:DEC >::N) >::[MULT >::A >::_] >::A)
;
; caught STYLE-WARNING:
; The function was called with five arguments, but wants exactly three.
; in: DEF MEXPT
; (CLAMP:CALLN (CLAMP:DEC >::N) >::[MULT >::A >::_] >::A)
;
; caught WARNING:
; undefined variable: [MULT
;
; caught WARNING:
; undefined variable: _]
;
; compilation unit finished
; Undefined variables:
; [MULT _]
; caught 2 WARNING conditions
; caught 1 STYLE-WARNING condition
MEXPT
>> (syntax:use-syntax :clamp)
((">" . #<NAMED-READTABLE :CURRENT {1006E09123}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF073}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF0B3}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF0F3}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF133}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF173}>)
("CLAMP-EXPERIMENTAL" . #<READTABLE {10080EF1B3}>)
("CLAMP" . #<READTABLE {10080EF1F3}>) ("CLAMP" . #<READTABLE {10080EF233}>)
("CLAMP" . #<READTABLE {10080EF273}>) ("CLAMP" . #<READTABLE {10080EF2B3}>)
("CLAMP" . #<READTABLE {10080EF2F3}>) ("CLAMP" . #<READTABLE {10080EF333}>)
("CLAMP" . #<READTABLE {10080EF373}>) ("CLAMP" . #<READTABLE {10080EF3B3}>)
("CLAMP" . #<READTABLE {10080EF3F3}>) ("CLAMP" . #<READTABLE {10080EF433}>)
("CLAMP" . #<READTABLE {10080EF473}>) ("CLAMP" . #<READTABLE {10080EF4B3}>)
("CLAMP" . #<READTABLE {10080EF4F3}>) ("CLAMP" . #<READTABLE {10080EF533}>)
("CLAMP" . #<READTABLE {10080EF573}>) ("CLAMP" . #<READTABLE {10080EF5B3}>)
("CLAMP" . #<READTABLE {10080EF5F3}>) ("CLAMP" . #<READTABLE {10080EF633}>)
("CLAMP" . #<READTABLE {10080EF673}>) ("CLAMP" . #<READTABLE {10080EF6B3}>)
("CLAMP" . #<READTABLE {10080EF6F3}>) ("CLAMP" . #<READTABLE {10080EF733}>)
("SB-CLTL2" . #<READTABLE {1004ADD2B3}>)
("SB-INTROSPECT" . #<READTABLE {1004ADD2B3}>)
("SB-BSD-SOCKETS" . #<READTABLE {1004ADD2B3}>)
("SB-BSD-SOCKETS-INTERNAL" . #<READTABLE {1004ADD2B3}>)
("SB-POSIX" . #<READTABLE {1004ADD2B3}>)
("SB-ALIEN" . #<READTABLE {1004ADD2B3}>)
("SB-ALIEN-INTERNALS" . #<READTABLE {1004ADD2B3}>)
("SB-ASSEM" . #<READTABLE {1004ADD2B3}>)
("SB-BIGNUM" . #<READTABLE {1004ADD2B3}>) ("SB-C" . #<READTABLE {1004ADD2B3}>)
("SB-DEBUG" . #<READTABLE {1004ADD2B3}>) ("SB-DI" . #<READTABLE {1004ADD2B3}>)
("SB-DISASSEM" . #<READTABLE {1004ADD2B3}>)
("SB-FASL" . #<READTABLE {1004ADD2B3}>)
("SB-IMPL" . #<READTABLE {1004ADD2B3}>) ("SB-EXT" . #<READTABLE {1004ADD2B3}>)
("SB-FORMAT" . #<READTABLE {1004ADD2B3}>)
("SB-GRAY" . #<READTABLE {1004ADD2B3}>) ("SB-INT" . #<READTABLE {1004ADD2B3}>)
("SB-KERNEL" . #<READTABLE {1004ADD2B3}>)
("SB-THREAD" . #<READTABLE {1004ADD2B3}>)
("SB-LOOP" . #<READTABLE {1004ADD2B3}>) ("SB-MOP" . #<READTABLE {1004ADD2B3}>)
("SB-REGALLOC" . #<READTABLE {1004ADD2B3}>)
("SB-PCL" . #<READTABLE {1004ADD2B3}>)
("SB-PRETTY" . #<READTABLE {1004ADD2B3}>)
("SB-PROFILE" . #<READTABLE {1004ADD2B3}>) ..)
>> (def mexpt (a n)
(calln (dec n) [mult a _] a))
STYLE-WARNING: redefining >::MEXPT in DEFUN
MEXPT
>> ***
MEXPT
>> #2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mexpt * 1)
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mexpt * 2)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> **
#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
>> (mult * *)
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
>> (loop for i from 1 to 10 collect (mexpt ** i))
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666) ..))
>> (setf *print-lines* nil)
NIL
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn * 5)
; Evaluation aborted on #<TYPE-ERROR expected-type: REAL
datum:
(#<(ARRAY T (6 6)) {10065D4E1F}> #<(SIMPLE-ARRAY T (6 6)) {100815D64F}> ..)>.
>> **
NIL
>> '(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 5 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 6 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 7 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (firstn 8 *)
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> **
(#2A((0.14814815 0.18518518 0.18518518 0.18518518 0.14814815 0.14814815)
(0.18518518 0.14814815 0.14814815 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.14814815)
(0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518)
(0.18518518 0.18518518 0.14814815 0.14814815 0.14814815 0.18518518)
(0.14814815 0.14814815 0.18518518 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16598079 0.16735253 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16598079 0.16735253 0.16735253)
(0.16735253 0.16735253 0.16598079 0.16735253 0.16598079 0.16598079)
(0.16598079 0.16598079 0.16735253 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16735253 0.16598079 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16669206 0.16664125 0.16664127)
(0.16669206 0.16664125 0.16664125 0.16664125 0.16669205 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16669206 0.16664125 0.16664127)
(0.16664127 0.16664127 0.16669206 0.16664125 0.16669206 0.16669206)
(0.16669206 0.16669206 0.16664125 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16664125 0.16669206 0.16669206 0.16669206 0.16664127))
#2A((0.1666676 0.1666657 0.1666657 0.1666657 0.16666758 0.16666761)
(0.1666657 0.1666676 0.1666676 0.1666676 0.16666572 0.16666573)
(0.1666657 0.1666657 0.16666758 0.1666657 0.16666758 0.16666761)
(0.1666676 0.1666676 0.16666572 0.1666676 0.16666572 0.16666573)
(0.16666572 0.16666572 0.1666676 0.1666676 0.1666676 0.16666573)
(0.1666676 0.1666676 0.1666657 0.1666657 0.1666657 0.16666761))
#2A((0.16666663 0.16666669 0.16666667 0.16666667 0.16666661 0.16666663)
(0.16666669 0.16666661 0.16666661 0.16666661 0.16666667 0.1666667)
(0.16666669 0.16666669 0.16666661 0.16666667 0.16666661 0.16666663)
(0.16666661 0.16666661 0.16666667 0.16666661 0.16666667 0.1666667)
(0.1666667 0.1666667 0.16666661 0.16666661 0.16666661 0.16666672)
(0.16666661 0.16666661 0.16666667 0.16666669 0.16666667 0.16666663))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666667)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666))
#2A((0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)
(0.16666666 0.16666666 0.16666664 0.16666664 0.16666664 0.16666666)))
>> (def build-matrix (mappings)
(ret result (make-array (list 6 6) :initial-element 0)
(each (start end num) mappings
(= (aref result (list->num end) (list->num start))
(/ num 27)))))
STYLE-WARNING: redefining >::BUILD-MATRIX in DEFUN
BUILD-MATRIX
>> (build-matrix '(((1 2 3) (1 2 3) 4) ((1 2 3) (1 3 2) 5) ((1 2 3) (3 2 1) 4)
((1 2 3) (2 1 3) 5) ((1 2 3) (2 3 1) 5) ((1 2 3) (3 1 2) 4)
((1 3 2) (1 3 2) 4) ((1 3 2) (1 2 3) 5) ((1 3 2) (2 3 1) 4)
((1 3 2) (3 1 2) 5) ((1 3 2) (3 2 1) 5) ((1 3 2) (2 1 3) 4)
((3 2 1) (3 2 1) 4) ((3 2 1) (3 1 2) 5) ((3 2 1) (1 2 3) 4)
((3 2 1) (2 3 1) 5) ((3 2 1) (2 1 3) 5) ((3 2 1) (1 3 2) 4)
((2 1 3) (2 1 3) 4) ((2 1 3) (2 3 1) 5) ((2 1 3) (3 1 2) 4)
((2 1 3) (1 2 3) 5) ((2 1 3) (1 3 2) 5) ((2 1 3) (3 2 1) 4)
((2 3 1) (2 3 1) 4) ((2 3 1) (2 1 3) 5) ((2 3 1) (1 3 2) 4)
((2 3 1) (3 2 1) 5) ((2 3 1) (3 1 2) 5) ((2 3 1) (1 2 3) 4)
((3 1 2) (3 1 2) 4) ((3 1 2) (3 2 1) 5) ((3 1 2) (2 1 3) 4)
((3 1 2) (1 3 2) 5) ((3 1 2) (1 2 3) 5) ((3 1 2) (2 3 1) 4)))
#2A((4/27 5/27 5/27 4/27 5/27 4/27)
(5/27 4/27 5/27 4/27 5/27 4/27)
(5/27 4/27 4/27 5/27 4/27 5/27)
(5/27 4/27 5/27 4/27 4/27 5/27)
(4/27 5/27 4/27 5/27 4/27 5/27)
(4/27 5/27 4/27 5/27 5/27 4/27))
>> (map #'float (linearlize *))
(0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815
0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815 0.18518518
0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518
0.14814815)
>> (make-array (list 6 6) :displaced-to *)
; Evaluation aborted on #<TYPE-ERROR expected-type: (OR ARRAY NULL)
datum:
(0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 ..)>.
>> (apply #'vector *)
#(0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815
0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815 0.18518518
0.14814815 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518
0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.18518518
0.14814815)
>> (make-array (list 6 6) :displaced-to *)
#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
(0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
>> (loop for i from 1 to 10 collect (mexpt ** i))
; Evaluation aborted on #<SIMPLE-ERROR "Vector axis is not zero: ~S" {1006398683}>.
>> (loop for i from 1 to 10 collect (mexpt * i))
(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
(0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
#2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
#2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
(0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
>> (/ 5 27)
5/27
>> (float *)
0.18518518
>> (/ 4 27)
4/27
>> (float *)
0.14814815
>> .16664125
0.16664125
>> .16669
0.16669
>> (* * 10000)
1666.9
>> ***
0.16664125
>> (* * 10000)
1666.4125
>> '(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
(0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
#2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
#2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
(0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
(#2A((0.14814815 0.18518518 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.18518518 0.14814815 0.18518518 0.14814815)
(0.18518518 0.14814815 0.14814815 0.18518518 0.14814815 0.18518518)
(0.18518518 0.14814815 0.18518518 0.14814815 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.14814815 0.18518518)
(0.14814815 0.18518518 0.14814815 0.18518518 0.18518518 0.14814815))
#2A((0.16735253 0.16598079 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16598079 0.16735253)
(0.16598079 0.16735253 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16598079 0.16735253 0.16598079 0.16735253 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16735253 0.16598079)
(0.16735253 0.16598079 0.16735253 0.16598079 0.16598079 0.16735253))
#2A((0.16664125 0.16669206 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16669206 0.16664125)
(0.16669206 0.16664125 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16669206 0.16664125 0.16669206 0.16664125 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16664125 0.16669206)
(0.16664125 0.16669205 0.16664127 0.16669205 0.16669206 0.16664125))
#2A((0.1666676 0.1666657 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666657 0.16666758)
(0.1666657 0.16666758 0.16666761 0.1666657 0.1666676 0.16666572)
(0.1666657 0.16666758 0.16666573 0.16666758 0.1666676 0.1666657)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666676 0.16666572)
(0.16666758 0.1666657 0.16666761 0.1666657 0.1666657 0.1666676))
#2A((0.16666661 0.16666667 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666667 0.1666666 0.1666667 0.1666666 0.16666667 0.16666661)
(0.16666669 0.1666666 0.16666663 0.16666667 0.16666661 0.16666669)
(0.16666669 0.1666666 0.1666667 0.1666666 0.1666666 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666661 0.16666669)
(0.1666666 0.16666667 0.16666663 0.16666667 0.16666669 0.1666666))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666664 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666667 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664))
#2A((0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)
(0.16666663 0.16666663 0.16666666 0.16666663 0.16666664 0.16666664)))
>> (def array+ (a b)
(make-array (array-dimensions a)
:displaced-to (mapv #'+ (linearlize a) (linearlize b))))
ARRAY+
>> (reduce #'array+ **)
#2A((1.6488093 1.6845236 1.6845236 1.6488092 1.6845236 1.6488093)
(1.6845236 1.6488092 1.6845236 1.6488092 1.6845236 1.6488093)
(1.6845236 1.6488092 1.6488094 1.6845236 1.6488093 1.6845236)
(1.6845236 1.6488092 1.6845236 1.6488092 1.6488092 1.6845236)
(1.6488092 1.6845236 1.6488094 1.6845236 1.6488093 1.6845236)
(1.6488092 1.6845236 1.6488094 1.6845236 1.6845236 1.6488092))
>>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment