[Bug-apl] Stack trace in, maybe, Rank Operator

[Christian Robert]

      )load Loto2
SAVED 2016-04-29 21:57:45 (GMT-4)

      )fns
Loto    Randomize

      ⎕CR 'Loto'
z←n Loto a;b
(a b)←a
z←(0,a)⍴0
Loop: →(n=0)/Sort
  z←z⍪a?b
  n←¯1+n
  →Loop
Sort: z←{⍵[⍋⍵;]} {(⊂⍋⍵)⌷⍵}⍤1 ⊢ z



      5 Loto 6 49
 1  9 18 21 43 48
 5  6 10 39 41 44
 8 18 19 21 36 44
14 18 23 31 44 46
14 22 28 35 39 46

      1 Loto 6 49
6 22 24 26 29 42

      0 Loto 6 49

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

Call stack:

----------------------------------------
-- Stack trace at Cell.cc:48
----------------------------------------
0x7fe31a2f8580 __libc_start_main
0x444585  main
0x57d8fd   Workspace::immediate_execution(bool)
0x48d522    Command::process_line()
0x48d5ea     Command::do_APL_expression(UCS_string&)
0x498615      Executable::execute_body() const
0x528a90       StateIndicator::run()
0x4cdd48        Prefix::reduce_statements()
0x4cd02e         Prefix::reduce_MISC_F_B_()
0x4a0611          DerivedFunction::eval_B(Value_P)
0x471384           Bif_OPER2_RANK::eval_LRB(Token&, Token&, Value_P)
0x46f27d            Bif_OPER2_RANK::do_LyXB(Function*, Shape const*, Value_P, 
int)
0x46e8b2             Bif_OPER2_RANK::finish_LyXB(EOC_arg&, bool)
0x47b54a              Cell::init(Cell const&, Value&, char const*)
0x455c48               do_Assert(char const*, char const*, char const*, int)
========================================

SI stack:

Depth:    1
Exec:     0xc33af0
Safe ex:  no
Pmode:    ∇ Loto[7]
PC:       49 ←
Stat:     Sort: z←{⍵[⍋⍵;]} {(⊂⍋⍵)⌷⍵}⍤1 ⊢ z
err_code: 0x0
thrown:   at StateIndicator.cc:40
e_msg_1:  'No Error'
e_msg_2:  ''
e_msg_3:  ''

Depth:    0
Exec:     0xc10370
Safe ex:  no
Pmode:    ◊  0 Loto 6 49
PC:       3 ENDL
Stat:     0 Loto 6 49
err_code: 0x0
thrown:   at StateIndicator.cc:40
e_msg_1:  'No Error'
e_msg_2:  ''
e_msg_3:  ''


==============================================================================



Juergen, I think the stack trace came from Rank Operator (⍤) but not 100% sure.

Xtian.

To others, any way to remove the Loop in Loto? how? Examples?