「共通の要素」の編集履歴（バックアップ）一覧はこちら

「共通の要素」(2010/07/17 (土) 14:51:29) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

#asciiart(blockquote){
/***********************************************************
	common.c -- 共通の要素
***********************************************************/

Const INT_MAX = 32767

Sub list_common_elements(na As Long, a As *Long, nb As Long, b As *Long, nc As Long, c As *Long)

	Dim i As Long, j As Long, k As Long, t As Long

	a[na] = INT_MAX: b[nb] = INT_MAX: c[nc] = INT_MAX  /* 番人 */
	i = 0: j = 0: k = 0:  t = a[0]
	While (t < INT_MAX)
		While (b[j] < t) :j++: Wend
		While (c[k] < t) :k++: Wend
		If (t = b[j] And t = c[k]) Then Print " ";t;
		Do
			i=i+1
		Loop while (a[i] = t)
		t = a[i]
	Wend
	Print ""
End Sub



Sub make_sorted_array(n As Long, a As *Long)
	Dim i As Long

	a[0] = Rnd() * 5
	For i = 1 To n-1
		a[i] = a[i - 1] + Rnd() * 3
	Next
	For i = 0 To n-1: Print " ";a[i];: Next
	Print ""
End Sub

#N88BASIC

Const L = 20
Const M = 20
Const N = 20

	Dim a[L] As Long, b[M] As Long, c[N] As Long

	Print "a: ";  :make_sorted_array(L, a)
	Print "b: ";  :make_sorted_array(M, b)
	Print "c: ";  :make_sorted_array(N, c)
	Print "common elements: "; :list_common_elements(L, a, M, b, N, c)


]

#asciiart(blockquote){
/***********************************************************
	common.c -- 共通の要素
***********************************************************/

Const INT_MAX = 32767

Sub list_common_elements(na As Long, a As *Long, nb As Long, b As *Long, nc As Long, c As *Long)

	Dim i As Long, j As Long, k As Long, t As Long

	a[na] = INT_MAX: b[nb] = INT_MAX: c[nc] = INT_MAX  /* 番人 */
	i = 0: j = 0: k = 0:  t = a[0]
	While (t < INT_MAX)
		While (b[j] < t) :j++: Wend
		While (c[k] < t) :k++: Wend
		If (t = b[j] And t = c[k]) Then Print " ";t;
		Do
			i=i+1
		Loop while (a[i] = t)
		t = a[i]
	Wend
	Print ""
End Sub

Sub make_sorted_array(n As Long, a As *Long)
	Dim i As Long

	a[0] = Rnd() * 5
	For i = 1 To n-1
		a[i] = a[i - 1] + Rnd() * 3
	Next
	For i = 0 To n-1: Print " ";a[i];: Next
	Print ""
End Sub

#N88BASIC
Const L = 20
Const M = 20
Const N = 20
	Dim a[L] As Long, b[M] As Long, c[N] As Long
	Print "a: ";  :make_sorted_array(L, a)
	Print "b: ";  :make_sorted_array(M, b)
	Print "c: ";  :make_sorted_array(N, c)
	Print "common elements: "; :list_common_elements(L, a, M, b, N, c)
}