Walsh matrix: Difference between revisions

Line 845:
| .k = 1
| until (.k >= $n;
reduce range (0;.k) as $i (.;k
| reduce range (0;. $k) as $ji (.;
.walsh[reduce range (0; $i][$j]k) as $wijj (.;
| .kwalsh[$i][$j] as $kwij
| .walsh[$i+$k][$j] = $wij
| .walsh[$i][$j+$k] = $wij
| .walsh[$i+$k][$j+$k] = -$wij ))
| .k += .k )
| .walsh ;
2,526

edits