問題：
環狀序列（Circular Sequence, ACM/ ICPC Seoul 2004, UVa1584） 環狀串長度 為 n 的環狀串 有 n 種 表示 法， 分別為從某個位置開始順時針得到。 例如， 圖 3- 4 的環狀串有 10 種表示： CGAGTCAGCT， GAGTCAGCTC， AGTCAGCTCG 等。 在這些表示法 中， 字典序最小的稱為" 最小表示"。 輸入一個長度為 n（ n ≤ 100） 的環狀DNA串（只包含 A、 C、 G、 T 這 4 種 字元）的一種表示法， 你的任務是輸出 該 環狀 串 的 最小表示。 例如， CTCC 的最小表示是 CCCT，CGAGTCAGCT 的最小表示 為 AGCTCGAGTC。

C 語言程式碼：

#include <stdio.h> 
#include <string.h> 
#define maxn 105 //環狀 串 s 的 表示 法 p 是否 比 表示 法 q 的 字典 序 小 
int less (const char* s, int p, int q) { 
	int n = strlen( s); 
	for (int i = 0; i < n; i++) 
		if (s[( p+ i)% n] != s[( q+ i)% n]) return s[( p+ i)% n] < s[( q+ i)% n]; 
	return 0; //相等 
} 

int main() { 
	int T; 
	char s[ maxn]; 
	scanf("% d", &T); 
	while( T--) { 
		scanf("% s", s); 
		int ans = 0; 
		int n = strlen( s); 
		for (int i = 1; i < n; i++) 
			if( less( s, i, ans)) ans = i; 
		for( int i = 0; i < n; i++) 
			putchar( s[( i+ ans)% n]); 
		putchar('\ n'); 
	} 
	return 0; 
}
 

Haskell 語言程式碼：

genList' s 0 = []
genList' (x:xs) n = (x:xs) :(genList' (xs ++ [x]) (n-1))
genList s = genList' s (length s)
minstr s = minimum (genList s)