【NOIP2011模拟9.9】单词分类
2016-08-16 17:14
295 查看
Description
Oliver为了学号英语决定苦背单词,但很快他发现要直接记住杂乱无章的单词非常困难,他决定对单词进行分类。
两个单词可以分为一类当且仅当组成这两个单词的各个字母的数量均相等。
例如“AABAC”,它和“CBAAA”就可以归为一类,而和“AAABB”就不是一类。
现在Oliver有N个单词,所有单词均由大写字母组成,每个单词的长度不超过100.你要告诉Oliver这些单词会被分成几类。
Input
输入文件的第一行为单词个数N,以下N行每行为一个单词。
Output
输出文件仅包含一个数,表示这N个单词分成的类数。
Sample Input
3
AABAC
CBAAA
AAABB
Sample Output
2
Data Constraint
Hint
【数据范围】
对于70%的数据满足N<=100。
对于100%的数据满足N<=10000。
分析:
先给每个字符串排一次序,那么排序后相同的一定是同一类,然后把所有字符串排序。然后去重的方法就可以求出解。
代码:
Oliver为了学号英语决定苦背单词,但很快他发现要直接记住杂乱无章的单词非常困难,他决定对单词进行分类。
两个单词可以分为一类当且仅当组成这两个单词的各个字母的数量均相等。
例如“AABAC”,它和“CBAAA”就可以归为一类,而和“AAABB”就不是一类。
现在Oliver有N个单词,所有单词均由大写字母组成,每个单词的长度不超过100.你要告诉Oliver这些单词会被分成几类。
Input
输入文件的第一行为单词个数N,以下N行每行为一个单词。
Output
输出文件仅包含一个数,表示这N个单词分成的类数。
Sample Input
3
AABAC
CBAAA
AAABB
Sample Output
2
Data Constraint
Hint
【数据范围】
对于70%的数据满足N<=100。
对于100%的数据满足N<=10000。
分析:
先给每个字符串排一次序,那么排序后相同的一定是同一类,然后把所有字符串排序。然后去重的方法就可以求出解。
代码:
var s:array [1..10001] of string; i,n,ans:longint; procedure qsort(x,l,r:longint); var i,j:longint; key,temp:char; begin if l>=r then exit; i:=l;j:=r; key:=s[x,l+random(r-l+1)]; repeat while (s[x,i]<key) do inc(i); while (s[x,j]>key) do dec(j); if i<=j then begin temp:=s[x,i]; s[x,i]:=s[x,j]; s[x,j]:=temp; inc(i);dec(j); end; until i>j; qsort(x,l,j); qsort(x,i,r); end; procedure qsort1(l,r:longint); var i,j:longint; key,temp:string; begin if l>=r then exit; i:=l;j:=r; key:=s[l+random(r-l+1)]; repeat while (s[i]<key) do inc(i); while (s[j]>key) do dec(j); if i<=j then begin temp:=s[i]; s[i]:=s[j]; s[j]:=temp; inc(i);dec(j); end; until i>j; qsort1(l,j); qsort1(i,r); end; begin readln(n); for i:=1 to n do begin readln(s[i]); qsort(i,1,length(s[i])); end; qsort1(1,n); ans:=1; for i:=2 to n do if s[i]<>s[i-1] then inc(ans); writeln(ans); end.
相关文章推荐
- 2557. 【NOIP2011模拟9.9】单词分类 (Standard IO)
- jzoj 2557. 【NOIP2011模拟9.9】单词分类
- 2557. 【NOIP2011模拟9.9】单词分类 (StandardIO)
- 2558. 【NOIP2011模拟9.9】过河问题 (StandardIO)
- 2559. 【NOIP2011模拟9.9】最短路 (StandardIO)
- 【NOIP2011模拟9.9】过河问题
- 2558. 【NOIP2011模拟9.9】过河问题 (Standard IO)
- 【NOIP2011模拟9.9】最短路
- 2559. 【NOIP2011模拟9.9】最短路 (Standard IO)
- noip2011 统计单词数 (模拟)
- 【模拟】[NOIP2011普及组]统计单词数
- 【模拟】[NOIP2011普及组]统计单词数
- jzoj 2558. 【NOIP2011模拟9.9】过河问题
- jzoj 2559. 【NOIP2011模拟9.9】最短路
- [noip 2011]选择客栈---模拟(?)
- [COGS 622] [NOIP2011] 玛雅游戏 模拟
- 【模拟】[NOIP2011]铺地毯[c++]
- noip2011 表达式的值 (模拟)
- 【NOIP 2011 Day1 T1】铺地毯(模拟)
- 【NOIP2011模拟9.3】旅行 (Standard IO)