Commit e4711a69 authored by Liam Healy's avatar Liam Healy

Add test for #'outer

parent ec0b14d7
;; Tests
;; Liam Healy 2009-12-28 22:33:55EST higher.lisp
;; Time-stamp: <2012-12-02 23:54:52EST norm-vector-product.lisp>
;; Time-stamp: <2017-11-25 15:07:09EST norm-vector-product.lisp>
;;
;; Copyright 2009, 2012 Liam M. Healy
;; Copyright 2009, 2012, 2017 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -32,4 +32,10 @@
(cross #(0.0d0 0.0d0 1.0d0) #(1.0d0 0.0d0 0.0d0)))
(lisp-unit:assert-numerical-equal
7.0710678118654755d0
(euclidean #(3.0d0 4.0d0 5.0d0))))
(euclidean #(3.0d0 4.0d0 5.0d0)))
(lisp-unit:assert-numerical-equal
7.0710678118654755d0
(euclidean #(3.0d0 4.0d0 5.0d0)))
(lisp-unit:assert-numerical-equal
#2A((3 4 5) (6 8 10) (9 12 15))
(outer #(1 2 3) #(3 4 5))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment