22.距離
"街道"任兩點距離定義為他們座標各軸差距的度量。因此:
d=: +/@:|@:-"1
p=: 3 5 1 [ q=: 7 4 0
p d q
6
表格=: #: i. 2^3
(]; d/~) 表格 表格與其中任兩點的距離
+-----+---------------+
|0 0 0|0 1 1 2 1 2 2 3|
|0 0 1|1 0 2 1 2 1 3 2|
|0 1 0|1 2 0 1 2 3 1 2|
|0 1 1|2 1 1 0 3 2 2 1|
|1 0 0|1 2 2 3 0 1 1 2|
|1 0 1|2 1 3 2 1 0 2 1|
|1 1 0|2 3 1 2 1 2 0 1|
|1 1 1|3 2 2 1 2 1 1 0|
+-----+---------------+
g=: [ * [ = d/~@]
(];(d/~);(1&g);(2&g))表格
+-----+---------------+---------------+---------------+
|0 0 0|0 1 1 2 1 2 2 3|0 1 1 0 1 0 0 0|0 0 0 2 0 2 2 0|
|0 0 1|1 0 2 1 2 1 3 2|1 0 0 1 0 1 0 0|0 0 2 0 2 0 0 2|
|0 1 0|1 2 0 1 2 3 1 2|1 0 0 1 0 0 1 0|0 2 0 0 2 0 0 2|
|0 1 1|2 1 1 0 3 2 2 1|0 1 1 0 0 0 0 1|2 0 0 0 0 2 2 0|
|1 0 0|1 2 2 3 0 1 1 2|1 0 0 0 0 1 1 0|0 2 2 0 0 0 0 2|
|1 0 1|2 1 3 2 1 0 2 1|0 1 0 0 1 0 0 1|2 0 0 2 0 0 2 0|
|1 1 0|2 3 1 2 1 2 0 1|0 0 1 0 1 0 0 1|2 0 0 2 0 2 0 0|
|1 1 1|3 2 2 1 2 1 1 0|0 0 0 1 0 1 1 0|0 2 2 0 2 0 0 0|
+-----+---------------+---------------+---------------+
{&' .+*' &.> (];(d/~);(1&g);(2&g);(3&g))表格
+---+--------+--------+--------+--------+
| | ..+.++*| .. . | + ++ | *|
| .|. +.+.*+|. . . | + + +| * |
| . |.+ .+*.+|. . . | + + +| * |
| ..|+.. *++.| .. .|+ ++ | * |
|. |.++* ..+|. .. | ++ +| * |
|. .|+.*+. +.| . . .|+ + + | * |
|.. |+*.+.+ .| . . .|+ + + | * |
|...|*++.+.. | . .. | ++ + |* |
+---+--------+--------+--------+--------+
下個 前個
字彙
索引
主選單