Implement first occurence

Co-dfns · Dec 3, 2023 · dad8318 · dad8318
1 parent ed335a7
commit dad8318
Show file tree

Hide file tree

Showing 4 changed files with 2,435 additions and 2,404 deletions.
diff --git a/rtm/prim.apln b/rtm/prim.apln
@@ -415,7 +415,7 @@ greaterthan←{
 gth←{⎕SIGNAL 2}ambiv (greaterthan numeric scalar)
 
 ⍝ ≠: Not Equal | First Occurrence
-firstocc←{⎕SIGNAL 16}
+firstocc←{(⍳≢⍵)=⍵⍳⍵}
 neq_vec←'neq_vec_ibeam'⌶
 noteq←{
 	⍺ both_numeric ⍵:⍺ neq_vec ⍵