Discussion :

[Flodelarab]

Je viens de finir l'épreuve dont nous avons parlé, en bash, hum, en awk, et il faut expliquer comment se passer de tableau.

Le jeu utilise un "read" pour donner les "entrées" au programme en bash (ce qui pose de nombreux problèmes pour lesquels j'ouvrirai peut-être une discussion, comme le fait que "read" supprime le premier espace entré ou qu'un texte avec des contre-obliques est saccagé)
Voici la base donnée en point de départ:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
read N
for (( i=0; i<N; i++ )); do
    read Pi
done

Il n'est pas question de tableau.

Pour ne pas avoir à traiter les variables une à une ou par tableau, il convient de renvoyer vers la sortie... de la boucle !!! Pas celle du programme. Et de retraiter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
read N
for (( i=0; i<N; i++ )); do
    read Pi
    echo $Pi
done |sort -n |awk 'blablabla'

Et voilà une épreuve réussie sans effort.

[disedorgue]

Pour le problème de la contre-oblique, je ne sais pas, mais pour l'espace en début de ligne, il suffit soit d'utiliser la variable que read initialise par défaut ($REPLY), soit de redéfinir l'IFS à rien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
$ read
   essai pour REPLY
$ echo "$REPLY"
   essai pour REPLY
$ read VAR
   essai pour VAR sans IFS
$ echo "$VAR"
essai pour VAR sans IFS
$ IFS='' read VAR
   essai pour var avec IFS
$ echo "$VAR"
   essai pour var avec IFS

[Flodelarab]

Pas mal du tout. J'avais mis IFS=';'. Mais rien c'est encore mieux.
Pour les contre-obliques, j'ai rajouté l'option -r. "read -r" n'interprète pas l'échappement.

Mais j'ai encore des problèmes pas forcément identifiés. Comme par exemple la version de awk. a² peut s'écrire, selon les langages, et manifestement selon les awk, a**2 ou a^2.

Sur encore une autre épreuve, l'algorithme est bon mais plante sur la validation finale sur un texte "lorem ipsum etc...". Et je suis sûr que c'est dû à un effet de bord de bash. Un caractère spécial doit avoir un comportement spécial.

To be continued ...

[Sve@r]

Mais j'ai encore des problèmes pas forcément identifiés. Comme par exemple la version de awk. a² peut s'écrire, selon les langages, et manifestement selon les awk, a**2 ou a^2.

Et t'as essayé a*a ??? A mon avis ça devrait fonctionner dans toutes les versions de awk...

[xflr6]

Bonsoir,

Une propal en full bash :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
declare -a tab
dist=10000000
read N
for (( i=0; i<N; i++ )); do
    read Pi
    tab[$Pi]=1
done
 
if [ ! $N -eq ${#tab[@]} ]; then dist=0; fi
 
if [ $dist -gt 0 ]; then
    d=10000000
    k=0
    for pi in ${!tab[*]}; 
    do
        xc=$pi
        if [ $k -eq 1 ]; then 
            d=$(($xc-$xp))
            if [ $d -lt $dist ]; then 
              dist=$d
            fi
        fi
        xp=$xc
        k=1
    done
 
fi
echo $dist

qui passe le test de rapidité (probablement de justesse, c'est assez long).
Je suis preneur de toute remarque concernant les mauvaises pratiques et les astuces qui permettraient de rendre ce code plus beau et rapide.

Cordialement,
xflr6

[jack-ft]

Je suis preneur de toute remarque concernant les mauvaises pratiques et les astuces qui permettraient de rendre ce code plus beau et rapide.

Tu dois pouvoir gagner un tout petit petit peu en n'utilisant qu'une seule variable à la place de xc et pi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
declare -a tab
dist=10000000
read N
for (( i=0; i<N; i++ )); do
    read Pi
    tab[$Pi]=1
done
 
if [ ! $N -eq ${#tab[@]} ]; then dist=0; fi
 
if [ $dist -gt 0 ]; then
    d=10000000
    k=0
    for xc in ${!tab[*]}; # énumérer sur xc et non pi
    do
        # xc=$pi # inutile
        if [ $k -eq 1 ]; then 
            d=$(($xc-$xp))
            if [ $d -lt $dist ]; then 
              dist=$d
            fi
        fi
        xp=$xc
        k=1
    done
 
fi
echo $dist

[disedorgue]

Très joli

Peut-être plus rapide en faisant tout les if dans let:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
eclare -a tab
dist=10000000
read N
for (( i=0; i<N; i++ )); do
    read Pi
    tab[$Pi]=1
done
 
if [ ! $N -eq ${#tab[@]} ]; then dist=0; fi
 
if [ $dist -gt 0 ]; then
    d=10000000
    k=0
    for xc in ${!tab[*]}; # énumérer sur xc et non pi
    do
        ((xc-xp < dist ? dist=xc-xp : 0))
        xp=$xc
        k=1
    done
 
fi
echo $dist

A voir...