5 lines
135 B
APL
5 lines
135 B
APL
inexact←{Aa←(⎕A,⎕a) ⋄ (⊢≡⌽)(⎕a,⎕a)[Aa⍳⍵/⍨⍵∊Aa]}
|
||
inexact 'abc,-cbA2z'
|
||
0
|
||
inexact 'abc,-cbA2'
|
||
1
|