#N canvas 200 41 494 468 12;
#X obj 83 337 list-map;
#X msg 83 300 1 2 3;
#X obj 268 306 nbx 3 16 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 14
-261682 -1 -1 4 256;
#X obj 83 370 unpack f f f;
#X floatatom 83 396 5 0 0 0 - - -;
#X floatatom 123 396 5 0 0 0 - - -;
#X floatatom 164 395 5 0 0 0 - - -;
#X obj 165 338 expr (pow($f1 \, 2) + $f2) / $f3;
#X obj 372 307 nbx 3 16 -1e+37 1e+37 0 1 empty empty empty 0 -8 0 14
-261682 -1 -1 5 256;
#X obj 47 23 cnv 15 400 40 empty empty List-Map_&_Expr 20 12 0 24 -262144
-66577 0;
#X text 53 84 Na verdade \, como a abstração [list-math] herda o primeiro
argumento e o usa como um objeto de matemática \, nada lhe impede de
usar o objeto [expr]. Mas isso é meio problemático demais.;
#X text 52 174 O que temos abaixo não deixa de ser uma simplificação
da abstração [list-math]. [list-math] consiste em outra abstração [list-map]
\, um [route] e \, por herança \, o objeto de matemática que quisermos.
Logo \, podemos remontar esse processo apenas usando a abstração [list-map]
\, e adaptar para usar o [expr] como quisermos!;
#X connect 0 0 3 0;
#X connect 0 1 7 0;
#X connect 1 0 0 0;
#X connect 2 0 7 1;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 3 2 6 0;
#X connect 7 0 0 1;
#X connect 8 0 7 2;
