Opened by peggy at 2004-08-09 14:19
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Code: (dl
)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/usr/bin/perl
use strict;
use warnings;
my @data = <DATA>;
my @t;
push @t, [ split /\s+/, $_ ] for @data;
# erste Zeile entfernen und als Worte speichern:
my @words = @{ shift @t };
# Erste Spalte vom Rest entfernen:
shift @$_ for @t;
my %paare;
for my $z (0..$#t) {
for my $s (0..$#{$t[$z]}) {
if ($t[$z][$s] > 0.7 and $z != $s) {
$paare{$words[$z] . ' ' . $words[$s]} = $t[$z][$s];
}
}
}
print "Paare:\n";
while(my ($schluessel,$wert) = each(%paare))
{
print "Der Wert von $schluessel ist $wert!\n";
}
_ _ D A T A _ _
apfel banane baum grün rot ast bielef regen obst pflanze
apfel 1.000 0.700 0.700 0.809 0.500 0.702 0.200 0.301 0.902 0.609
banane 0.700 1.000 0.500 0.200 0.100 0.300 0.101 0.203 0.902 0.609
Baum 0.700 0.500 1.000 0.803 0.100 0.900 0.500 0.702 0.803 0.904
grün 0.809 0.200 0.803 1.000 0.800 0.600 0.300 0.703 0.605 0.803
rot 0.500 0.100 0.100 0.800 1.000 0.300 0.209 0.309 0.609 0.308
ast 0.702 0.300 0.900 0.600 0.300 1.000 0.304 0.309 0.700 0.809
bielef 0.200 0.101 0.500 0.300 0.209 0.304 1.000 0.900 0.600 0.300
regen 0.301 0.203 0.702 0.703 0.309 0.309 0.900 1.000 0.800 0.800
obst 0.902 0.902 0.803 0.605 0.609 0.700 0.600 0.800 1.000 0.900
pflanze 0.609 0.609 0.904 0.803 0.308 0.809 0.300 0.800 0.900 1.000
Ausgabe:
Code: (dl
)
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
29
30
31
32
33
34
35
Paare:
Der Wert von baum regen ist 0.702!
Der Wert von bielef regen ist 0.900!
Der Wert von baum pflanze ist 0.904!
Der Wert von obst banane ist 0.902!
Der Wert von regen grün ist 0.703!
Der Wert von baum obst ist 0.803!
Der Wert von ast apfel ist 0.702!
Der Wert von regen bielef ist 0.900!
Der Wert von regen baum ist 0.702!
Der Wert von pflanze ast ist 0.809!
Der Wert von baum ast ist 0.900!
Der Wert von regen pflanze ist 0.800!
Der Wert von obst pflanze ist 0.900!
Der Wert von obst apfel ist 0.902!
Der Wert von regen obst ist 0.800!
Der Wert von pflanze obst ist 0.900!
Der Wert von grün pflanze ist 0.803!
Der Wert von apfel ast ist 0.702!
Der Wert von ast pflanze ist 0.809!
Der Wert von rot grün ist 0.800!
Der Wert von grün regen ist 0.703!
Der Wert von pflanze regen ist 0.800!
Der Wert von banane obst ist 0.902!
Der Wert von obst baum ist 0.803!
Der Wert von ast baum ist 0.900!
Der Wert von obst regen ist 0.800!
Der Wert von pflanze baum ist 0.904!
Der Wert von baum grün ist 0.803!
Der Wert von apfel obst ist 0.902!
Der Wert von pflanze grün ist 0.803!
Der Wert von apfel grün ist 0.809!
Der Wert von grün baum ist 0.803!
Der Wert von grün apfel ist 0.809!
Der Wert von grün rot ist 0.800!
Der hohe Wert des Paares Bielefeld und Regen sollte einem zu denken geben ;)\n\n
<!--EDIT|Crian|1092056718-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite