Comment peut-on exprimer cette fonction impérative dans un langage fonctionnel basé sur un tableau comme K (ou Q)?

Comment peut exprimer cette fonction impérative dans un langage fonctionnel basé sur les baies, comme K (ou Q)?Comment peut-on exprimer cette fonction impérative dans un langage fonctionnel basé sur un tableau comme K (ou Q)?

En C++ bâclée:

vector<int> x(10), y(10); // Assume these are initialized with some values. 

// BTW, 4 is just a const -- it's part of the algorithm and is arbitrarily chosen. 

vector<int> result1(x.size() - 4 + 1); // A place to hold a resulting array. 
vector<int> result2(x.size() - 4 + 1); // A place to hold another resulting array. 

// Here's the code I want to express functionally. 
for (int i = 0; i <= x.size() - 4; i++) { 
    int best = x[i + 0] - y[i + 0]; 
    int bad = best; 
    int worst = best; 
    for(int j = 0; j < 4; j++) { 
     int tmp = x[i + j] - y[i + 0]; 
     bad = min(bad, tmp); 
     if(tmp > best) { 
      best = tmp; 
      worst = bad; 
     } 
    } 
    result1[i] = best 
    result2[i] = worst 
}

J'aimerais le plus voir dans kdb et Q, mais d'autres langages fonctionnels sont les bienvenus.

Source

2011-07-18 Badmanchild

Qu'est-ce que ce code essaie de faire? –

Il essaie de calculer deux choses: Premièrement, à chaque point de x, nous voulons le maximum sur les 4 éléments suivants (appelons cela Nx = max (x), à l'emplacement Px, où Px = 0..3. , à chaque point de x, nous voulons le minimum sur les prochains points Px. – Badmanchild

Dans Kona (e ouvert source de dialecte K):

d'abord, définissez certaines valeurs par exemple (en utilisant même que la solution Clojure):

a:1+!8;b:8#0  /a is 1..8, b is eight 0s

Puis:

{(|/x;&/x)}@+{4#y _ x}[a+b;]'!#a

Où un et b sont votre variables x et y ci-dessus. (K fait un cas particulier pour les variables x, y et z.)

Pour briser ce un peu plus:

maxmin:{(|/x;&/x)}/(max;min) pairs of x 
get4:{4#y _ x} /next 4 from x, starting at y 
        /with <4 remaining, will repeat; doesn't matter for min or max 
/maxmin applied to flipped results of get4(a-b) at each index 0..(length a)-1 
[email protected]+get4[a-b;]'!#a 

/result 
(4 5 6 7 8 8 8 8 
1 2 3 4 5 6 7 8)

Source

2011-07-23 14:13:33 silentbicycle

Dans Clojure (un dialecte de Lisp):

(defn minmax [x y](map #(vector (- (apply max %1) %2) (- (apply min %1) %2)))(partition-all 4 1 x) y) 

(minmax [1 2 3 4 5 6 7 8] [0 0 0 0 0 0 0 0])

donnera

[([4 1] [5 2] [6 3] [7 4] [8 5] [8 6] [8 7] [8 8]) `(suite 1, 2 résultat) en tant que sortie ..

Puis

(map #(first %1) result) is result1 
(map #(last %1) result) is result2

Source

2011-07-20 01:52:11 KaKa

portage de k @ silentbicycle directement q rendements

q)a:1+til 8 
q)b:8#0 
q){(max x;min x)}flip{4#y _ x}[a+b;]each til count a 
4 5 6 7 8 8 8 8 
1 2 3 4 5 6 7 8

une autre approche, légèrement plus vectorisée (imao):

q){(max;min)@\:flip 4#'(til count x)_\:x+y}[a;b] 
4 5 6 7 8 8 8 8 
1 2 3 4 5 6 7 8

Source

2012-03-23 02:39:19

Comment peut-on exprimer cette fonction impérative dans un langage fonctionnel basé sur un tableau comme K (ou Q)?

Répondre

Questions connexes