Hi Xtian,
thanks, fixed in SVN 787.
/// Jürgen
On 08/23/2016 08:59 PM, Christian
Robert wrote:
precision←{∊'was' was⊣∆prec←⍵⊣was←∆prec;was}
⎕cr 'precision'
λ←λ1 ⍵;was
This shouldn’t be an error:
⍎¨'0' ' '
VALUE ERROR
μ-Z__LO_EACH_B[2] μ-Z[μ-N]←⊂μ-LO⊃μ-B[μ-N]
^
⍎' '
⍎'0'
0
⍎ ¨ "01"
0 1
⍎ ¨ "0 "
VALUE ERROR
μ-Z__LO_EACH_B[2] μ-Z[μ-N]←⊂μ-LO⊃μ-B[μ-N]
^
D←{24 ⎕cr ⍵}
D ⍎' '
VALUE ERROR
D⍎' '
^
D ⍎'0'
┌─┐
│0│
└─┘
Looks like ⍎' ' return absolutely nothing.
Xtian.
On 2016-08-24 11:46,
This should work,
(2 3 5 4⍴⍳24)(+⍤1⍤¯1)(2 4⍴⍳8)
VALUE ERROR
μ-Z__A_LO_RANK_X7_B[4] →(μ-X7≢¯1)⍴μ-WITH_AXES
^
You could use the axis operator generically
(2 3 5 4⍴⍳24){⍺+[1,(⍴⍴⍺)⌈⍴⍴⍵]⍵}(2 4⍴⍳8)
but the rank operator seems cleaner.
Best,
Xiao-Yong
(2 3 5 4$i.24)(+"1"_1)(2 4$i.8)
0 2 4 6
4 6 8 10
8 10 12 14
12 14 16 18
16 18 20 22
20 22 24 26
0 2 4 6
4 6 8 10
8 10 12 14
12 14 16 18
16 18 20 22
20 22 24 26
0 2 4 6
4 6 8 10
8 10 12 14
16 18 20 22
20 22 24 26
24 26 28 30
4 6 8 10
8 10 12 14
12 14 16 18
16 18 20 22
20 22 24 26
24 26 28 30
First my "df" function
∇z←df;names;func;lambda;t
⎕pw←1
names←((⊂[⎕io+1]⎕nl 3 4)~¨' ')~ ⊂"df"
lambda←({'λ'=↑⎕cr ⍵}¨names)/names
→(2> ⍴lambda)/nosrtl
lambda←{⍵[⎕av⍋⊃⍵]} lambda
nosrtl: func←names~lambda
→(2>⍴func)/nosrtf
func←{⍵[⎕av⍋⊃⍵]} func
nosrtf: func←{⍵ (22 ⎕cr ⎕cr ⍵)} ¨ func
lambda←{⍵,'←{'
∇Z←F N;⎕IO
[1] Z←⍎(N>1)⊃'N' 'N×F N-1'⊣⎕IO←0∇
F 6
720
f←{⍎(⍵>1)⊃'⍵' '⍵×f ⍵-1'⊣⎕IO←0;⎕IO}
f 6
SYNTAX ERROR
λ1[1] λ←⍎(⍵>1)⊃'⍵' '⍵×f ⍵-1'⊣⎕IO←0;⎕IO
^^
⎕IO
0
)SIC
⎕IO←1
f←{⍎(⍵>1)⊃'⍵' '⍵×⍙ ⍵-1'⊣⎕IO←0;⎕IO}
f 6
VALUE
In my original "df" function I had "⎕pw" localized, but even after setting it
to 1 inside the function
it looks like the default (80) was still was in effect while executing.
Xtian.
On 2016-08-24 20:52, Christian Robert wrote:
First my "df" function
∇z←df;names;func;lambda;t
⎕pw←1
nam
try ⎕IO
*after* )sic
the fact is that when a function is interruped, you see "by the last"
interrupted function. Until you type )sic or )reset
my 2 cents, as usual, I may be wrong.
Xtian.
On 2016-08-24 21:09, Louis de Forcrand wrote:
∇Z←F N;⎕IO
[1] Z←⍎(N>1)⊃'N' 'N×F N-1'⊣⎕IO←0∇
