Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
map & AoA
2 views
Skip to first unread message
kurtz le pirate
Nov 3, 2012, 11:40:10 AM11/3/12
to
bonjour,
Alors la, je n'ai rien trouv� sur le web :( J'ai un tableau de tableau
qui a cette forme :
--- Begin Dump ---
$VAR1 = [
'0.0000',
'0.0000'
];
$VAR2 = [
'27.0000',
'28.0000'
];
$VAR3 = [
[
'72.0000',
'79.0000'
],
[
'46.0000',
'49.0000'
],
[
'26.9995',
'79.0000'
]
];
$VAR4 = [
[
'95.0000',
'42.0000'
],
[
'116.0000',
'79.0000'
],
[
'116.0000',
'42.0000'
]
];
$VAR5 = [
'57.0000',
'42.0000'
];
$VAR6 = [
[
'57.0000',
'0.0000'
],
[
'44.0000',
'36.0000'
],
[
'44.0000',
'13.0000'
]
];
$VAR7 = [
[
'95.0000',
'13.0000'
],
[
'68.0750',
'-11.0749'
],
[
'92.8691',
'-2.9822'
]
];
$VAR8 = [
[
'105.0000',
'-26.0000'
],
[
'97.0000',
'28.0000'
],
[
'136.9069',
'-10.8063'
]
];
$VAR9 = [
[
'-10.0000',
'49.0000'
],
[
'63.0000',
'-46.0000'
],
[
'-10.0000',
'28.0000'
]
];
--- End Dump ---
Chaque 'premier couple' repr�sente un vecteur <x,y>.
J'ai une routine qui trouve le plus petit x et le plus petit y.
(XMin = -10.0000 et YMin = -26.0000 ici).
Et donc, je veux ajouter <XMIn, YMin> � tout les 'couples'.
Le "map{}" me para�t impossible � utiliser.
A part des boucles pour chaque tableau, voyez-vous un moyen de faire �a
facilement ?
Merci.
--
klp
Paul Gaborit
Nov 3, 2012, 1:11:11 PM11/3/12
to
À (at) Sat, 03 Nov 2012 16:40:10 +0100,
kurtz le pirate <kurtzl...@yahoo.fr> écrivait (wrote):
> Chaque 'premier couple' représente un vecteur <x,y>.
> J'ai une routine qui trouve le plus petit x et le plus petit y.
> (XMin = -10.0000 et YMin = -26.0000 ici).
>
> Et donc, je veux ajouter <XMIn, YMin> à tout les 'couples'.
> (XMin = -10.0000 et YMin = -26.0000 ici).
>
> Le "map{}" me paraît impossible à utiliser.
>
> A part des boucles pour chaque tableau, voyez-vous un moyen de faire ça
> facilement ?
>
Avec des map:
@arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
C'est concis mais pas très lisible...
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
kurtz le pirate
Nov 4, 2012, 3:29:58 AM11/4/12
to
In article <wt98vai...@marceau.mines-albi.fr>,
Paul Gaborit <Paul.G...@invalid.invalid> wrote:
> � (at) Sat, 03 Nov 2012 16:40:10 +0100,
> kurtz le pirate <kurtzl...@yahoo.fr> �crivait (wrote):
>
> > Chaque 'premier couple' repr�sente un vecteur <x,y>.
> > Le "map{}" me para�t impossible � utiliser.
> >
> > A part des boucles pour chaque tableau, voyez-vous un moyen de faire �a
Waoooo... Pas tr�s lisible au premier abord en effet.
Je vais essayer �a tout de suite.
Merci
--
klp
Paul Gaborit <Paul.G...@invalid.invalid> wrote:
> � (at) Sat, 03 Nov 2012 16:40:10 +0100,
> kurtz le pirate <kurtzl...@yahoo.fr> �crivait (wrote):
>
> > Chaque 'premier couple' repr�sente un vecteur <x,y>.
> > J'ai une routine qui trouve le plus petit x et le plus petit y.
> > (XMin = -10.0000 et YMin = -26.0000 ici).
> >
> > Et donc, je veux ajouter <XMIn, YMin> � tout les 'couples'.
> > (XMin = -10.0000 et YMin = -26.0000 ici).
> >
> > Le "map{}" me para�t impossible � utiliser.
> >
> > A part des boucles pour chaque tableau, voyez-vous un moyen de faire �a
> > facilement ?
> >
>
> Avec des map:
>
> @arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
>
> C'est concis mais pas tr�s lisible...
> >
>
> Avec des map:
>
> @arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
>
Waoooo... Pas tr�s lisible au premier abord en effet.
Je vais essayer �a tout de suite.
Merci
--
klp
kurtz le pirate
Nov 4, 2012, 3:58:28 AM11/4/12
to
> Avec des map:
>
> @arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
>
> C'est concis mais pas très lisible...
c'était trop beau :(
>
> @arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
>
> C'est concis mais pas très lisible...
Can't use string ("0.0000") as an ARRAY ref while "strict refs" in use
at /Users/me/perl/NewEps2Pov/newEps2Pov.pl line 105.
--
klp
Paul Gaborit
Nov 4, 2012, 6:00:34 AM11/4/12
to
À (at) Sun, 04 Nov 2012 09:58:28 +0100,
n'avez-vous pas bien décrit votre structure de données...
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @array = (
[ [23,45], [0,0], [12,10]],
[[-23,45], [0,10], [12,-10]],
[ [1,-45], [2,2], [4,3]],
);
print Dumper(\@array);
my $XMin=100;
my $YMin=100;
my @arr = map {[map {[$_->[0] + $XMin,$_->[1]+$YMin]} @$_]} @array;
print Dumper(\@arr);
Nicolas George
Nov 4, 2012, 7:12:48 AM11/4/12
to
Paul Gaborit , dans le message <wt9390p...@marceau.mines-albi.fr>,
a écrit :
emboîtés à la même profondeur. Je soupçonne un mauvais design à la base,
mais il peut y avoir une raison légitime.
a écrit :
> Et pourtant, sur l'exemple suivant, ça marche parfaitement. Peut-être
> n'avez-vous pas bien décrit votre structure de données...
Si tu relis son message, tu peux voir que tous ses tableaux ne sont pas
> n'avez-vous pas bien décrit votre structure de données...
emboîtés à la même profondeur. Je soupçonne un mauvais design à la base,
mais il peut y avoir une raison légitime.
Paul Gaborit
Nov 4, 2012, 8:58:08 AM11/4/12
to
À (at) 04 Nov 2012 12:12:48 GMT,
Nicolas George <nicolas$geo...@salle-s.org> écrivait (wrote):
étaietn de simples tableaux alors que les suivants étaient des tableaux
de tableaux. Cette structure de données n'est donc pas régulière.
Avant de fournir une solution, j'aimerais être sûr que ce n'est
effectivement pas une erreur de design.
Attendons une réponse...
kurtz le pirate
Nov 8, 2012, 9:28:31 AM11/8/12
to
In article <wt91ug9...@marceau.mines-albi.fr>,
Non, se n'est pas une erreur de design. C'est les données qui sont comme
ça. Le script perl analyse un fichier postscript et en extrait les
points qui définissent un chemin. par exemple :
1845.0708 1924.1575 m
1921.6063 2003.5276 L
1975.4645 2063.0551 1921.6049 2148.0945 2049.1653 2148.0945 C
2173.8897 2148.0945 2173.8897 2043.2126 2114.3622 2043.2126 C
2006.6456 2043.2126 L
1969.7952 2026.2047 1969.7952 1961.0079 2006.6457 1924.1575 C
2038.0392 1892.764 2108.3217 1915.7041 2114.3622 1961.0079 C
2120.0315 2003.5276 2233.1533 1893.5255 2142.7086 1850.4567 C
2023.6535 1793.7638 1816.7244 2003.5276 1816.7244 2063.0551 C
On a chaque fois un couple de valeurs <x,y>. Pour certaines instructions
comme 'm' (moveTo) et 'L' (lineTo), un seul couple <x,y>.
Pour d'autres instructions comme 'C' (curveTo) en plus du point <x,y>,
il y a les coordonnées des 'banlanciers' (cf. courbe de bezier) : 3
points.
Et donc un tableau de tableaux 'variables'.
C'est un peu complexe en effet. Le map{} est trop compliqué ou pas
applicable (enfin pour moi). Je me suis débrouillé autrement en
analysant deux fois les lignes.
La première boucle recherche juste les minimums.
La deuxième boucle transforme les points (ajout des minimuns) et les
enregistre dans le tableau final.
Pour le fun, je veux bien voir l'utilisation de map{} sur une telle
structure.
En tout cas, merci de votre aide
--
klp
Paul Gaborit <Paul.G...@invalid.invalid> wrote:
> À (at) 04 Nov 2012 12:12:48 GMT,
> Nicolas George <nicolas$geo...@salle-s.org> écrivait (wrote):
>
> > Paul Gaborit , dans le message <wt9390p...@marceau.mines-albi.fr>,
> > a écrit :
> >> Et pourtant, sur l'exemple suivant, ça marche parfaitement. Peut-être
> >> n'avez-vous pas bien décrit votre structure de données...
> >
> > Si tu relis son message, tu peux voir que tous ses tableaux ne sont pas
> > emboîtés à la même profondeur. Je soupçonne un mauvais design à la base,
> > mais il peut y avoir une raison légitime.
>
> Ah oui. Exact. Je n'avais pas remarqué que les deux premiers éléments
> étaietn de simples tableaux alors que les suivants étaient des tableaux
> de tableaux. Cette structure de données n'est donc pas régulière.
>
> Avant de fournir une solution, j'aimerais être sûr que ce n'est
> effectivement pas une erreur de design.
>
> Attendons une réponse...
Bonjour,
> À (at) 04 Nov 2012 12:12:48 GMT,
> Nicolas George <nicolas$geo...@salle-s.org> écrivait (wrote):
>
> > Paul Gaborit , dans le message <wt9390p...@marceau.mines-albi.fr>,
> > a écrit :
> >> Et pourtant, sur l'exemple suivant, ça marche parfaitement. Peut-être
> >> n'avez-vous pas bien décrit votre structure de données...
> >
> > Si tu relis son message, tu peux voir que tous ses tableaux ne sont pas
> > emboîtés à la même profondeur. Je soupçonne un mauvais design à la base,
> > mais il peut y avoir une raison légitime.
>
> Ah oui. Exact. Je n'avais pas remarqué que les deux premiers éléments
> étaietn de simples tableaux alors que les suivants étaient des tableaux
> de tableaux. Cette structure de données n'est donc pas régulière.
>
> Avant de fournir une solution, j'aimerais être sûr que ce n'est
> effectivement pas une erreur de design.
>
> Attendons une réponse...
Non, se n'est pas une erreur de design. C'est les données qui sont comme
ça. Le script perl analyse un fichier postscript et en extrait les
points qui définissent un chemin. par exemple :
1845.0708 1924.1575 m
1921.6063 2003.5276 L
1975.4645 2063.0551 1921.6049 2148.0945 2049.1653 2148.0945 C
2173.8897 2148.0945 2173.8897 2043.2126 2114.3622 2043.2126 C
2006.6456 2043.2126 L
1969.7952 2026.2047 1969.7952 1961.0079 2006.6457 1924.1575 C
2038.0392 1892.764 2108.3217 1915.7041 2114.3622 1961.0079 C
2120.0315 2003.5276 2233.1533 1893.5255 2142.7086 1850.4567 C
2023.6535 1793.7638 1816.7244 2003.5276 1816.7244 2063.0551 C
On a chaque fois un couple de valeurs <x,y>. Pour certaines instructions
comme 'm' (moveTo) et 'L' (lineTo), un seul couple <x,y>.
Pour d'autres instructions comme 'C' (curveTo) en plus du point <x,y>,
il y a les coordonnées des 'banlanciers' (cf. courbe de bezier) : 3
points.
Et donc un tableau de tableaux 'variables'.
C'est un peu complexe en effet. Le map{} est trop compliqué ou pas
applicable (enfin pour moi). Je me suis débrouillé autrement en
analysant deux fois les lignes.
La première boucle recherche juste les minimums.
La deuxième boucle transforme les points (ajout des minimuns) et les
enregistre dans le tableau final.
Pour le fun, je veux bien voir l'utilisation de map{} sur une telle
structure.
En tout cas, merci de votre aide
--
klp
0 new messages