15 lines
214 B
Plaintext
15 lines
214 B
Plaintext
: distance \ s1 s2 | n
|
|
null s:/ a:len \ s1 a2 n2
|
|
rot \ a2 n2 s1
|
|
null s:/ a:len \ a2 n2 a1 n1
|
|
rot \ a2 a1 n2 n1
|
|
n:= not \ a2 a1 b
|
|
if
|
|
null nip nip
|
|
else \ a2 a1
|
|
( s:= ) a:diff a:len nip \ a3 n3
|
|
then
|
|
;
|
|
|
|
|