<p>LINQ</p>

c35641c5-63ac-42ce-adbe-c1b63f9deac0 104 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

Language-Integrated Query: https://en.smath.info/forum/yaf_postst2473_Language-Integrated-Query--Linq.aspx

`null null 11 mat :

A# B# min a# A# min : b# B# min : 12 mat a# b# < a# b# if 21 line :

A# B# max a# A# min : b# B# min : 12 mat a# b# < b# a# if 21 line :

`f `x `y `.Φ `s `f num2str (`__1) concat : `σ 12 range `s `s str2num num2str ≡ `s `s),`__`σ 1 + num2str) concat strrep : 11 line break 11 line if break try 11 line for `σ 1 ≡ `__1 `f `s str2num : `x `f 21 line `σ 2 ≡ `__1 `__2 `f `s str2num : `x `y `f 21 line Bad function. error if if 31 line :

`t `TrueQ `t eval num2str 1 ≡ 0 try 11 line :

`a `b `EqQ `a `b ≡ `TrueQ 11 line :

`t `1 `2 `if `t `1 `2 if 11 line :

`test `1 `if `test `1 `null `if 11 line :

`v ` select `η `v length : `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `Q `n el `n `.φ : for `Q 41 line :

`v ` foreach `v ` select 11 line :

`v ` selectmany `η `v length : `n `.φ ` `v `n el `n `.Φ : `Q 1 `.φ : `n 2 `η range `Q `Q `n `.φ stack : for `Q 51 line :

`v ` where `k 0 : `Q `null : `η `v length : 13 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ `Q `k `k 1 + : el `v `n el : continue if for `Q 41 line :

`v `c take `Q `null : `η `v length : 12 mat `n 1 `c `η min range `Q `n el `v `n el : for `Q 31 line :

`v `c takeevery `n 0 : `k 0 : `Q `null : `η `v length : 14 mat `c 0 > `n `η ≤ `Q `k `k 1 + : el `v `n `n `c + : el : while continue if `Q 31 line :

`v ` takewhile `Q `null : `k 0 : `η `v length : 13 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ `Q `k `k 1 + : el `v `n el : break if for `Q 41 line :

`v `c skip `Q `null : `k 0 : `η `v length : 13 mat `c `k + `η ≤ `Q `k `k 1 + : el `v `c `k + el : while `Q 31 line :

`v ` all `T 1 : `η `v length : 12 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ continue `T 0 : break 21 line if for `T 41 line :

`v ` any `T 0 : `η `v length : 12 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ `T 1 : break 21 line continue if for `T 41 line :

`v ` first `Q `null : `η `v length : 12 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ `Q `v `n el : break 21 line continue if for `Q 41 line :

`v ` last `Q `null : `η `v length : 12 mat `n `.φ ` `v `n el `n `.Φ : `n `η 1 range `n `.φ `TrueQ `Q `v `n el : break 21 line continue if for `Q 41 line :

`a `c repeat `Q `null : `n 1 `c range `Q `n el `a : for `Q 31 line :

`v `a contains `T 0 : `η `v length : 12 mat `n 1 `η range `v `n el `a `EqQ `T 1 : break 21 line continue if for `T 31 line :

Can't use `TrueQ

err Exception ot type 'SMath.Math.Decision+RuleException :

`v `a ` aggregate `η `v length : `x `y `.φ ` `x `y `.Φ : `n 1 `η range `n 1 ≡ `A `a : `A `A `v `n el `.φ : if for `A 41 line :

`v ` aggregate `v `v 1 el ` aggregate :

`v ` count `c 0 : `η `v length : 12 mat `n `.φ ` `v `n el `n `.Φ : `n 1 `η range `n `.φ `TrueQ `c `c 1 + : continue if for `c 41 line :

`out `inn `1 `2 `3 join `Q `null : `flag 0 : 12 mat `v1 `out `1 select : `v2 `inn `2 select : 12 mat `n `m `.φ `3 `out `n el `inn `m el `.Φ 11 line : `n 1 `v1 length range `m 1 `v2 length range `v1 `n el `v2 `m el ≡ `flag `Q `Q `n `m `.φ stack : `flag 1 : `Q `n `m `.φ : 21 line if 0 if for 11 line for `Q 51 line :

`v `1 `2 exclude `Q `null : `c 0 : `η `v length : 13 mat `n 1 `η range `n `1 ≥ (`n `2 ≤ (| `Q `c `c 1 + : el `v `n el : continue if for `Q 31 line :

ToDo _____________________________________________________________________________________

`v `s batch `η `v length : `Q `v `s take 11 mat : `n `s 1 + : `n `η ≤ `n `s mod 0 ≡ `tmp `tmp `v `n el stack stack : `out `Q `tmp 11 mat stack : 21 line `n `s mod 1 ≡ `tmp `v `n el stack : `tmp `tmp `v `n el stack stack : if if `n `n 1 + : 21 line while `η `s mod 0 ≠ `Q `Q `tmp 11 mat stack : 0 if `Q IsDefined `Q `null `if 61 line :

`v `s ` batch `η `v length : `Q `v `s take ` 11 mat : `n `s 1 + : `n `η ≤ `n `s mod 0 ≡ `tmp `tmp `v `n el stack stack : `Q `Q `tmp ` 11 mat stack : 21 line `n `s mod 1 ≡ `tmp `v `n el stack : `tmp `tmp `v `n el stack stack : if if `n `n 1 + : 21 line while `η `s mod 0 ≠ `Q `Q `tmp ` 11 mat stack : 0 if `Q IsDefined `Q `null `if 61 line :

m k rmrow ` 1 m rows range n ` m n row : select : ` ` r n ` n k ≠ eval : where2 : ` 1 skip ` 1 el x r ` x eval r stack : aggregate 31 line :

m k rmcol ` 1 m cols range n ` m n col : select : ` ` r n ` n k ≠ eval : where2 : ` 1 skip ` 1 el x r ` x eval r augment : aggregate 31 line :

V 123437817 mat transpose :

M 123422 mat :

A x sin 24312 N 16 mat transpose :

B 32! 13 mat transpose :

Try to not use the same name for 1-valued function and the 2-valued function. Here, we use f=f(x) and g=g(x,n).

x f x 1 + : V f select transpose 21 line 234548917 mat

x f x stack : V f select transpose 21 line 111 mat 211 mat 311 mat 411 mat 311 mat 711 mat 811 mat 17 mat

x n g n x stack : V g select transpose 21 line 1112 mat 2212 mat 3312 mat 4412 mat 5312 mat 6712 mat 7812 mat 17 mat

x f x x 1 + stack : V f selectmany transpose 21 line 12233445347889114 mat

x f x : c n g M n col : Vo 1 M rows range g select : Vo f selectmany transpose 41 line 132414 mat

x f x : r n g M n row transpose : Vo 1 M rows range g select : Vo f selectmany transpose 41 line 123414 mat

N Odd N 2 mod `TrueQ :

N Even N 2 mod ¬ :

Places Values ______________________________________________________________________________________

x n g n 3 ≠ : V g where transpose 21 line 12437816 mat

x n g x 3 ≠ : V g where transpose 21 line 1247815 mat

x n g n Odd : V g where transpose 21 line 1 null * 11 mat

x n g x Odd : V g where transpose 21 line 1 null * 11 mat

x n g n Even : V g where transpose 21 line 24713 mat

x n g x Even : V g where transpose 21 line 24813 mat

x n g n 3 ≥ : V g where transpose 21 line 3437815 mat

x n g x 3 ≥ : V g where transpose 21 line 3437815 mat

x n g n 3 > (n 6 < (& : V g where transpose 21 line 4312 mat

x n g x 3 > (x 6 < (& : V g where transpose 21 line 411 mat

V transpose 123437817 mat

UNI ANSWERS:

x n gn 2621 mat n contains : V gn where transpose 21 line 1 null * 11 mat

x n gx 2621 mat x contains 11 line : V gx where transpose 21 line 1 null * 11 mat

______________________________________________________________________________________

V 4 take transpose 123414 mat

V x f x 4 < : f 21 line takewhile transpose 12313 mat

V 4 skip transpose 437814 mat

V 2 take V 4 skip stack transpose 12437816 mat

V 23 exclude transpose 123437817 mat

x f x IsString :

______________________________________________________________________________________

A f where transpose 243213 mat

B f where transpose 32! 13 mat

A f first 2

B f first 3

A f all 0

B f all 1

A f any 1

B f any 1

______________________________________________________________________________________

A N contains 1

A 43 contains 1

A 4 contains 0

A x sin contains 0

14 repeat transpose 111114 mat

______________________________________________________________________________________

must tu be `null only

Symbolic optimization

`null 10 skip 1 null * 11 mat

`null 10 skip null 11 mat

n f n 20 > : 110 range f first 21 line 1 null * 11 mat

n f n 20 > : 110 range f first 21 line null 11 mat

______________________________________________________________________________________

av a g av a * : 15 range g aggregate 21 line 120

av - aggregated value, a - element

av a g av a * : 15 range 1 g aggregate 21 line 120

av a g av a * : 15 range 2 g aggregate 21 line 240

out 430 stack : inn 542 stack : 12 mat x `1 x 1 + : y `2 y : 12 mat x y `3 x : out inn `1 `2 `3 join 41 line 4321 mat

fails with concat

v.1 1 Sam 2 Dave 1 Julia 4 Sue 42 mat : v.2 1 Book 1 Game 1 Computer 2 Shirt 42 mat : 12 mat r f.1 v.1 r row : r f.2 v.2 r row : 12 mat out 1 v.1 rows range f.1 select : inn 1 v.2 rows range f.2 select : 12 mat x `1 x 1 el : y `2 y 1 el : 12 mat x y `3 x 2 el bought y 2 el concate 11 mat : out inn `1 `2 `3 join 61 line Sam bought Book concate Sam bought Game concate Sam bought Computer concate Dave bought Shirt concate Julia bought Book concate Julia bought Game concate Julia bought Computer concate 71 mat

Alvaro