hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2006-09-30 17:03:11 +00:00
parent 95b904c8e9
commit ec0067a430
7 changed files with 124 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
ase/test/awk/comp.awk
View File

@ -1,43 +1,45 @@
BEGIN {
print "1==1 : ", (1 == 1);
print "1==0 : ", (1 == 0);
OFS="\t\t";
print "1.0==1 : " (1.0 == 1);
print "1.1==1 : " (1.1 == 1);
print "1==1 :", (1 == 1);
print "1==0 :", (1 == 0);
print "1.0!=1 : " (1.0 != 1);
print "1.1!=1 : " (1.1 != 1);
print "1.0==1 :", (1.0 == 1);
print "1.1==1 :", (1.1 == 1);
print "1.0!=1 :", (1.0 != 1);
print "1.1!=1 :", (1.1 != 1);
print "abc" == "abc";
print "abc" != "abc";
print "------------------------";
print "a == \"\" : " (a == "");
print "a >= \"\" : " (a >= "");
print "a <= \"\" : " (a <= "");
print "a > \"\" : " (a > "");
print "a < \"\" : " (a < "");
print "--------------------------";
print "a == \"\" :", (a == "");
print "a >= \"\" :", (a >= "");
print "a <= \"\" :", (a <= "");
print "a > \"\" :", (a > "");
print "a < \"\" :", (a < "");
print "------------------------";
print "a == \" \" : " (a == " ");
print "a >= \" \" : " (a >= " ");
print "a <= \" \" : " (a <= " ");
print "a > \" \" : " (a > " ");
print "a < \" \" : " (a < " ");
print "--------------------------";
print "a == \" \" :", (a == " ");
print "a >= \" \" :", (a >= " ");
print "a <= \" \" :", (a <= " ");
print "a > \" \" :", (a > " ");
print "a < \" \" :", (a < " ");
print "------------------------";
print "\"\" == a : " ("" == a);
print "\"\" >= a: " ("" >= a);
print "\"\" <= a: " ("" <= a);
print "\"\" > a: " ("" > a);
print "\"\" < a: " ("" < a);
print "--------------------------";
print "\"\" == a :", ("" == a);
print "\"\" >= a:", ("" >= a);
print "\"\" <= a:", ("" <= a);
print "\"\" > a:", ("" > a);
print "\"\" < a:", ("" < a);
print "------------------------";
print "\" \" == a : " (" " == a);
print "\" \" >= a: " (" " >= a);
print "\" \" <= a: " (" " <= a);
print "\" \" > a: " (" " > a);
print "\" \" < a: " (" " < a);
print "--------------------------";
print "\" \" == a :", (" " == a);
print "\" \" >= a:", (" " >= a);
print "\" \" <= a:", (" " <= a);
print "\" \" > a:", (" " > a);
print "\" \" < a:", (" " < a);
#a[10] = 2;
#print a == 1;

7
ase/test/awk/wordfreq.awk
View File

@ -2,15 +2,18 @@
{
$0 = tolower($0); # remove case distinctions
# remove punctuation
#gsub(/[^[:alnum:]_[:blank:]]/, "", $0);
a=0;
gsub(/[^[:alnum:]_[:blank:]]/, " ", $a);
#gsub(/[^[:alnum:]_[:blank:]]/, " ");
for (i = 1; i <= NF; i++) freq[$i]++;
}
END {
for (word in freq)
print word, "\t", freq[word];
print word, freq[word];
}