[Bug-apl] [bug] problem with simple code

[Alexey Veretennikov]

Hi,

I'm studying the paper http://archive.vector.org.uk/art10501380

Here defined 3 functions:
⍝ simple sort
Sort←{⍵[⍋⍵]}

R←∇triples N;all;i
⍝ All possible triples of numbers 1..9
i←⍳9
all←,i∘.,i∘.,i
R←(N=+/¨all)/all

⍝ remove those triples which contain repeating entries or not unique
clean←{ ∪Sort¨ ({⍵≡∪⍵}¨⍵)/⍵ }

And then try to run
clean triples 4
lead to crash(assertion).
Version APL: 1.5 / 696,
Workspace attached.

bug1.xml
Description: Binary data

The assert log below:

==============================================================================
Assertion failed: 0
in Function:      init
in file:          Cell.cc:48

Call stack:

----------------------------------------
-- Stack trace at Cell.cc:48
----------------------------------------
0x0 @@@@
0xa  @@@@
0xa   @@@@
0xa    @@@@
0xa     @@@@
0xa      @@@@
0xa       @@@@
0xa        @@@@
0xa         @@@@
0xa          @@@@
0xa           @@@@
0xa            @@@@
0xa             @@@@
========================================

SI stack:

Depth:    4
Exec:     0x7fe663500dd0
Safe ex:  no
Pmode:    ∇ clean[1]
PC:       12 ENDL
Stat:     

====================================================
SEGMENTATION FAULT

----------------------------------------
-- Stack trace at main.cc:63
----------------------------------------
0x0 @@@@
0xa  @@@@
0xa   @@@@
0xa    @@@@
0xa     @@@@
0xa      @@@@
0xa       @@@@
0xa        @@@@
0xa         @@@@
0xa          @@@@
0xa           @@@@
0xa            @@@@
0xa             @@@@
0xa              @@@@
0xa               @@@@
0x0                @@@@
0x0                 @@@@
0xa                  @@@@
========================================
====================================================

Goodbye.

Process apl exited abnormally with code 3



-- 
Br,
/Alexey