Conjugate transpose: Difference between revisions

Content deleted Content added

Inline

@@ Line 100: / Line 100: @@
 =={{header|Factor}}==
-{{incorrect|Factor|By using <code>m.</code> for [[matrix multiplication]], this code encounters [https://github.com/slavapestov/factor/issues/484 bug #484] in Factor: see [[{{TALKPAGENAME}}#Bug in Factor]].}}
+Before the fix to [https://github.com/slavapestov/factor/issues/484 Factor bug #484], <code>m.</code> gave the wrong answer and this code failed. Factor 0.94 is too old to work.
+{{works with|Factor|development (future 0.95)}}
 <lang factor>USING: kernel math.functions math.matrices sequences ;
 IN: rosetta.hermitian
@@ Line 115: / Line 117: @@
 : unitary-matrix? ( matrix -- ? )
     [ dup conj-t m. ] [ length identity-matrix ] bi = ;</lang>
+Usage:
+ '''USE: rosetta.hermitian'''
+ IN: scratchpad '''{ { C{ 1 2 } 0 }'''
+                '''  { 0 C{ 3 4 } } }'''
+                '''[ hermitian-matrix? . ]'''
+                '''[ normal-matrix? . ]'''
+                '''[ unitary-matrix? . ] tri'''
+ f
+ t
+ f
 =={{header|Go}}==