Conjugate transpose: Difference between revisions
m
→{{header|Common Lisp}}
(Added the Common Lisp version--~~~~) |
|||
Line 340:
<pre>
(hermitian-p
'((3 #C(2 1))
(#C(2 -1) 1) ))
=> T
Line 346:
(normal-p
'((#C(0 1) 0)
(0 #C(3 -5)) ))
==> T
(unitary-p
'((0.70710677 0.70710677 0)
(#C(0 -0.70710677) #C(0 0.70710677) 0)
(0 0 1) ))
==> T
</pre>
=={{header|D}}==
| |||