From 7f66d444451dab0e831cc0f14cc77ad691936f42 Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 26 Jan 2022 13:00:39 +0000 Subject: =?UTF-8?q?Implement=20inner=20product=20.=20and=20outer=20product?= =?UTF-8?q?=20=E2=8C=BE?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functions.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'functions.c') diff --git a/functions.c b/functions.c index c4b5cee..0e302de 100644 --- a/functions.c +++ b/functions.c @@ -426,11 +426,9 @@ fnMix(Array *right) int *index = malloc(sizeof(int) * commonrank); int offset; for(i = 0; i < size/commonsize; i++){ - print("COPY CELL %d\n", i); Array *a = right->arraydata[i]; Array *fill = fillelement(a); if(a->rank == 0){ - print("Copy scalar :-)\n"); memcpy( result->rawdata + i * commonsize * datasizes[a->type], a->rawdata, datasizes[a->type]); @@ -461,7 +459,6 @@ fnMix(Array *right) index[commonrank-2-k]++; } if(offset < commonsize){ - print("Copying from %d to %d\n", j, commonsize*i+offset); memcpy( result->rawdata + (i * commonsize + offset) * datasizes[a->type], a->rawdata + j * datasizes[a->type], datasizes[a->type]); @@ -482,7 +479,7 @@ fnMix(Array *right) Array * fnSplit(Array *right) { - Rune *code = L"0≡≢⍴⍵: ⍵ ⋄ (⊂⍵)⌷⍨¨⍳≢⍵"; + Rune *code = L"0≡≢⍴⍵: ⍵ ⋄ 1≡≢⍴⍵: ⊂⍵ ⋄ (⊂⍵)⌷⍨¨⍳≢⍵"; return rundfn(code, nil, nil, nil, right); } -- cgit v1.2.3