set sortDirecionF to false –true: ascending, false: descending

set resList to getSpecifiedFieldData(aList, “ID”, sortDirecionF) of me
–> {{9, 3, 4, 5, 6}, {3, 4, 5, 6, 7}, {1, 2, 3, 4, 5}}

–入れ子のリストから、指定フィールドのデータを取得する
–１アイテム目はフィールドラベル。2アイテム目以降をデータと見なして指定フィールドのデータをリストで返す
on getSpecifiedFieldData(aData, fieldName, sortAscendF)
　　–与えられたデータaDataの１アイテム目はフィールド名と見なす
　　set fieldList to contents of first item of aData
　　set dataList to contents of items 2 thru -1 of aData
　　
　　set fNum to getNumberOfField(fieldList, fieldName) of me
　　if fNum = 0 then return false
　　
　　if sortAscendF = true then
　　　　–Ascending
　　　　set resList to shellSortListAscending(dataList, fNum) of me
　　else
　　　　–Descending
　　　　set resList to shellSortListDecending(dataList, fNum) of me
　　end if
　　
　　–フィールドラベルを先頭に付けておく？？？
　　–set beginning of dataList to fieldList
　　
　　return resList
　　
end getSpecifiedFieldData

–与えられたリスト中における任意テキスト要素の出現アイテム番号
on getNumberOfField(aList, targFieldName)
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to targFieldName then
　　　　　　return aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return 0 – no hit
end getNumberOfField

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(aSortList, keyItem)
　　script oBj
　　　　property list : aSortList
　　end script
　　
　　set n to count oBj’s list’s items
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of list of oBj
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of list of oBj) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of list of oBj) to (item (j - h + 1) of list of oBj)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of list of oBj to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return aSortList
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(aSortList, keyItem)
　　script oBj
　　　　property list : aSortList
　　end script
　　
　　set n to count oBj’s list’s items
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of list of oBj
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of list of oBj) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of list of oBj) to (item (j - h + 1) of list of oBj)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of list of oBj to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return aSortList
end shellSortListDecending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set resList to getSpecifiedFieldData(aList, "名称") of me
–> {2, 3, 4}

–入れ子のリストから、指定フィールドのデータを取得する
–１アイテム目はフィールドラベル。2アイテム目以降をデータと見なして指定フィールドのデータをリストで返す
on getSpecifiedFieldData(aData, fieldName)
　　–与えられたデータaDataの１アイテム目はフィールド名と見なす
　　set fieldList to contents of first item of aData
　　set dataList to contents of items 2 thru -1 of aData
　　
　　set fNum to getNumberOfField(fieldList, fieldName) of me
　　if fNum = 0 then return false
　　
　　set resList to {}
　　repeat with i in dataList
　　　　set the end of resList to contents of item fNum of i
　　end repeat
　　
　　return resList
　　
end getSpecifiedFieldData

–与えられたリスト中における任意テキスト要素の出現アイテム番号
on getNumberOfField(aList, targFieldName)
　　set aCount to 1
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is equal to targFieldName then
　　　　　　return aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return 0 – no hit
end getNumberOfField

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–リスト中のすべての項目（データ行）のフィールド数が同じかどうかチェック
set chRes to chkItemNumInEveryLine(aList) of me
–> true

–入れ子のリストで、１アイテム目のアイテム数が他と同じかどうかチェック
on chkItemNumInEveryLine(aList)
　　set aList1 to contents of first item of aList
　　set aList2 to contents of items 2 thru -1 of aList
　　
　　set aList1Len to length of aList1
　　repeat with i in aList2
　　　　set tmpLen to length of i
　　　　if tmpLen is not equal to aList1Len then
　　　　　　return false
　　　　end if
　　end repeat
　　
　　return true
end chkItemNumInEveryLine

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–Initialize variables
set aList of aRef to {}
set bList of aRef to {}
set cList of aRef to {}
set dList of aRef to {}

set a to choose folder with prompt "Choose check Folder"

tell application "Finder"
　　tell folder a
　　　　set aList of aRef to name of every file
　　end tell
end tell

–make pure file name list(without extension) to cList
repeat with i in aList of aRef
　　set j to contents of i
　　set jj to retFileNameWithoutExt(j) of me
　　
　　if jj is in bList of aRef then
　　　　–duplicated file name & does not exist in cList
　　　　if jj is not in cList of aRef then
　　　　　　set the end of cList of aRef to jj
　　　　end if
　　　　
　　　　set tmpName to jj & "."
　　　　
　　　　tell application "Finder"
　　　　　　tell folder a
　　　　　　　　–set dList of aRef to dList of aRef & (name of every file whose name starts with tmpName)
　　　　　　　　set the end of dList of aRef to (name of every file whose name starts with tmpName)
　　　　　　end tell
　　　　end tell
　　　　
　　end if
　　
　　set the end of bList of aRef to jj
end repeat

–Remove duplicates from List
set aRes to removeDuplicates(dList of aRef) of me

–> {{"D120_a.jpg", "D120_a.png"}, {"D120_c.gif", "D120_c.jpg", "D120_c.png", "D120_c.txt"}}

–Remove Duplicated Item from List
on removeDuplicates(aList)
　　set newList to {}
　　repeat with i from 1 to (length of aList)
　　　　set anItem to item 1 of aList
　　　　set aList to rest of aList
　　　　if {anItem} is not in aList then set end of newList to anItem
　　end repeat
　　return newList
end removeDuplicates

–delete extension from file name
on retFileNameWithoutExt(fileNameStr)
　　set fLen to length of fileNameStr
　　set revText to (reverse of (characters of fileNameStr)) as string –make reversed string
　　set anOffset to offset of "." in revText
　　set fRes to text 1 thru (fLen - anOffset) of fileNameStr
　　return fRes
end retFileNameWithoutExt

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set s0Time to current date
set aRes to shellSort_order_(theList, false) of me
set s1Time to current date

display dialog (s1Time - s0Time) as string

–シェルソートでリストを昇順ソート（入れ子ではないリスト）
on shellSort_order_(a, isAsc)
　　
　　script a_ref
　　　　property contents : a
　　end script
　　
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of contents of a_ref
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((item (j - h + 1) of contents of a_ref) > v)
　　　　　　　　　　set (item (j + 1) of contents of a_ref) to (item (j - h + 1) of contents of a_ref)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of contents of a_ref to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　if not isAsc then set a to a’s reverse
　　
　　return a
end shellSort_order_

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script aRef
　　property contents : {}
end script

script sortArrayAppDelegate
　　property parent : class “NSObject”
　　
　　on applicationWillFinishLaunching_(aNotification)
　　　　– Nothing
　　end applicationWillFinishLaunching_
　　
　　on applicationShouldTerminate_(sender)
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate_
　　
　　on clicked_(sender)
　　　　
　　　　set aList to {}
　　　　repeat 30000 times
　　　　　　tell current application
　　　　　　　　set the end of (contents of aRef) to (random number from 1000 to 9999) as string
　　　　　　end tell
　　　　end repeat
　　　　
　　　　tell current application
　　　　　　set sTime to current date
　　　　end tell
　　　　
　　　　set theArray to current application’s class “NSMutableArray”’s arrayWithArray_(contents of aRef)
　　　　set bList to theArray’s sortedArrayUsingSelector_(“localizedCaseInsensitiveCompare:”)
　　　　
　　　　tell current application
　　　　　　set eTime to current date
　　　　　　set totalTime to eTime - sTime
　　　　end tell
　　　　
　　　　display dialog (totalTime as string)
　　　　
　　end clicked_
　　
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–「YxX」の形式の文字列を、{Y,X}のように数字のリストにして返す
on divideYxX(aStr)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to "x"
　　set tList to every text item of aStr
　　set AppleScript’s text item delimiters to curDelim
　　
　　copy tList to {item1, item2}
　　try
　　　　set item1 to item1 as integer
　　　　set item2 to item2 as integer
　　on error
　　　　return false
　　end try
　　
　　return {item1, item2}
　　
end divideYxX

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set t1 to current date
set aRes to length of (retShuffledList(aList) of me)
set t2 to current date

return (t2 - t1)

on retShuffledList(aList)
　　
　　–出力用リスト
　　set bList to {}
　　
　　set aMax to length of aList
　　set curCount to 0
　　
　　repeat
　　　　–ランダム抽出および出力用リスト内の存在確認
　　　　set anItem to contents of some item of aList –項目のランダム抽出
　　　　if anItem is not in bList then
　　　　　　set the end of bList to anItem
　　　　　　set curCount to curCount + 1
　　　　end if
　　　　
　　　　–終了？
　　　　if curCount = aMax then
　　　　　　exit repeat
　　　　end if
　　　　
　　end repeat
　　
　　return bList
　　
end retShuffledList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set t1 to current date
set aRes to length of (retShuffledList(aList) of me)
set t2 to current date

return (t2 - t1)

on retShuffledList(origList)
　　
　　copy origList to aList
　　
　　
　　–出力用リスト
　　set bList to {}
　　
　　set aMax to length of aList
　　
　　repeat aMax times
　　　　–ランダム抽出および出力用リスト内の存在確認
　　　　set curLen to (length of aList)
　　　　if curLen > 1 then
　　　　　　–通常処理
　　　　　　set aRandom to random number from 1 to curLen
　　　　　　set anItem to contents of item aRandom of aList
　　　　　　
　　　　　　set the end of bList to anItem
　　　　　　
　　　　　　set aList to delListItem(aList, aRandom) of me
　　　　else
　　　　　　–最後の項目の場合の例外処理
　　　　　　set the end of bList to contents of first item of aList
　　　　end if
　　end repeat
　　
　　return bList
　　
end retShuffledList

–リストから指定のアイテムを削除する
on delListItem(aList, anItemNo)
　　set newList to {}
　　
　　set aLen to length of aList
　　if anItemNo = 1 then
　　　　set newList to contents of items 2 thru -1 of aList
　　else if anItemNo = aLen then
　　　　set newList to contents of items 1 thru -2 of aList
　　else
　　　　set p1List to contents of items 1 thru (anItemNo - 1) of aList
　　　　set p2List to contents of items (anItemNo + 1) thru -1 of aList
　　　　set newList to p1List & p2List
　　end if
　　
　　return newList
　　
end delListItem

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–テスト用に1〜1000までの数字のリストを作成
set aList to {}
set aList_r to a reference to aList

repeat with i from 1 to 10000
　　set the end of aList_r to i
end repeat

set t1 to current date
set aRes to length of (retShuffledList(aList_r) of me)
set t2 to current date

return (t2 - t1)

on retShuffledList(aaList)
　　
　　copy aaList to aaaList
　　set aaaList_r to a reference to aaaList
　　
　　–出力用リスト
　　set bList to {}
　　set bList_r to a reference to bList
　　
　　set aMax to length of aaaList_r
　　set curCount to 0
　　
　　repeat
　　　　–ランダム抽出および出力用リスト内の存在確認
　　　　set anItem to contents of some item of aaaList_r –項目のランダム抽出
　　　　if anItem is not in bList_r then
　　　　　　set the end of bList_r to anItem
　　　　　　set curCount to curCount + 1
　　　　end if
　　　　
　　　　–終了？
　　　　if curCount = aMax then
　　　　　　exit repeat
　　　　end if
　　　　
　　end repeat
　　
　　return bList
　　
end retShuffledList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–リストから指定のアイテムを削除する
on delListItem(aList, anItemNo)
　　set newList to {}
　　
　　set aLen to length of aList
　　if anItemNo = 1 then
　　　　set newList to contents of items 2 thru -1 of aList
　　else if anItemNo = aLen then
　　　　set newList to contents of items 1 thru -2 of aList
　　else
　　　　set p1List to contents of items 1 thru (anItemNo - 1) of aList
　　　　set p2List to contents of items (anItemNo + 1) thru -1 of aList
　　　　set newList to p1List & p2List
　　end if
　　
　　return newList
　　
end delListItem

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–与えられたリスト中のfalseの項目番号をリストで返す
on retFalseItemNoFromList(aList)
　　set aCount to 1
　　set eResList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　
　　　　if j is not equal to true then
　　　　　　set the end of eResList to aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　return eResList
end retFalseItemNoFromList

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set bList to countAcharInStrAndDetectPos(a, aTargChar) of me
–> {2, {4, 6}} –指定文字の出現回数カウント、登場位置リスト

–文字列中に指定文字が何個入っているかカウントし、登場位置をリストで返す
on countAcharInStrAndDetectPos(aStr, aTargChar)
　　set aList to {}
　　set posC to 1
　　
　　considering case
　　　　set aHit to offset of aTargChar in aStr
　　　　
　　　　if aHit is not equal to 0 then
　　　　　　set aaList to characters of aStr
　　　　　　set aCount to 0
　　　　　　
　　　　　　repeat with i in aaList
　　　　　　　　
　　　　　　　　set j to contents of i
　　　　　　　　
　　　　　　　　if j = aTargChar then
　　　　　　　　　　set aCount to aCount + 1
　　　　　　　　　　set the end of aList to posC
　　　　　　　　end if
　　　　　　　　
　　　　　　　　set posC to posC + 1
　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　
　　　　　　return {aCount, aList}
　　　　else
　　　　　　return {0, {}}
　　　　end if
　　end considering
end countAcharInStrAndDetectPos

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aRes to listSubstraction(aList, bList) of me
–> {-0.311, -2.325, 0.029, 3.75}

–リスト同士の引き算
on listSubstraction(aList, bList)
　　–アイテム数をくらべて、合っていなければエラー
　　set aLen to length of aList
　　set bLen to length of bList
　　if aLen is not equal to bLen then return {}
　　
　　set aResList to {}
　　repeat with i from 1 to aLen
　　　　set itemA to contents of item i of aList
　　　　set itemB to contents of item i of bList
　　　　
　　　　set tmpR to itemA - itemB
　　　　set the end of aResList to tmpR
　　end repeat
　　
　　return aResList
　　
end listSubstraction

–リスト同士の足し算
on listAddition(aList, bList)
　　–アイテム数をくらべて、合っていなければエラー
　　set aLen to length of aList
　　set bLen to length of bList
　　if aLen is not equal to bLen then return {}
　　
　　set aResList to {}
　　repeat with i from 1 to aLen
　　　　set itemA to contents of item i of aList
　　　　set itemB to contents of item i of bList
　　　　
　　　　set tmpR to itemA + itemB
　　　　set the end of aResList to tmpR
　　end repeat
　　
　　return aResList
　　
end listAddition

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListDecending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set rangeList to {236.999990448174, 12.0, 246.999990448174, 81.999999025133} –{y1,x1,y2,x2}
set resList to withinRange_Y1X1Y2X2_retByID(rangeList, aList) of me

–指定矩形内に含まれるデータをアイテム番号で返す
on withinRange_Y1X1Y2X2_retByID(rangeList, targetList)
　　set includedList to {}
　　
　　set aCount to 1
　　
　　set y1 to item 1 of rangeList
　　set x1 to item 2 of rangeList
　　set y2 to item 3 of rangeList
　　set x2 to item 4 of rangeList
　　
　　repeat with i in targetList
　　　　set targY1 to item 1 of i
　　　　set targX1 to item 2 of i
　　　　set targY2 to item 3 of i
　　　　set targX2 to item 4 of i
　　　　
　　　　if (x1 < targX1) and (x2 > targX2) and (y1 < targY1) and (y2 > targY2) then
　　　　　　set the end of includedList to aCount
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　　　
　　end repeat
　　
　　return includedList
end withinRange_Y1X1Y2X2_retByID

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set a to mergeLastItem(aList, 4) of me
–>
(*
{"○○初等部", "○○中等部", "○○高等部（400）", "○○大学
○○女子短期大学
○○女子短期大学"}

*)

–指定アイテム以降は指定アイテム目に改行で区切って連結する
on mergeLastItem(aList, aLimit)
　　set aLen to length of aList
　　if aLen > aLimit then
　　　　set newItem to ""
　　　　
　　　　set tmpList to items aLimit thru aLen of aList
　　　　set newItem to retDelimedText(tmpList, return) of me
　　　　
　　　　set bList to items 1 thru (aLimit - 1) of aList
　　　　set the end of bList to newItem
　　　　set aList to bList
　　end if
　　
　　return aList
end mergeLastItem

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set sList to detectRepetition(aList) of me

sList
–> {{4, 6}, {7, 9}, {10, 17}}

–リスト中の値が連続する箇所をアイテム番号のリストで返す
on detectRepetition(aList)
　　
　　set curItem to first item of aList
　　set aList to rest of aList
　　
　　set aCount to 1
　　set sucF to false
　　
　　set sList to {}
　　set curList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if curItem is equal to j then
　　　　　　if sucF = true then
　　　　　　　　–何もしない。データの連続部分の中をスキャン中　　
　　　　　　else
　　　　　　　　set curItem to j
　　　　　　　　set curList to {aCount}
　　　　　　　　set sucF to true
　　　　　　end if
　　　　else
　　　　　　if sucF = true then
　　　　　　　　–連続部分の末尾を見つけた
　　　　　　　　set the end of curList to aCount
　　　　　　　　set the end of sList to curList
　　　　　　　　set curList to {}
　　　　　　　　set curItem to j –ここを修正した
　　　　　　　　set sucF to false
　　　　　　else
　　　　　　　　–なにもしない
　　　　　　　　set curItem to j
　　　　　　end if
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if sucF = true then
　　　　set the end of curList to aCount
　　　　set the end of sList to curList
　　end if
　　
　　return sList
　　
end detectRepetition

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set sList to detectRepetition(aList) of me

sList
–> {{4, 6}, {8, 9}, {11, 17}}

–リスト中の値が連続する箇所をアイテム番号のリストで返す
on detectRepetition(aList)
　　
　　set curItem to first item of aList
　　set aList to rest of aList
　　
　　set aCount to 1
　　set sucF to false
　　
　　set sList to {}
　　set curList to {}
　　
　　repeat with i in aList
　　　　set j to contents of i
　　　　if curItem is equal to j then
　　　　　　if sucF = true then
　　　　　　　　–何もしない。データの連続部分の中をスキャン中　　
　　　　　　else
　　　　　　　　set curItem to j
　　　　　　　　set curList to {aCount}
　　　　　　　　set sucF to true
　　　　　　end if
　　　　else
　　　　　　if sucF = true then
　　　　　　　　–連続部分の末尾を見つけた
　　　　　　　　set the end of curList to aCount
　　　　　　　　set the end of sList to curList
　　　　　　　　set curList to {}
　　　　　　　　set curItem to “”
　　　　　　　　set sucF to false
　　　　　　else
　　　　　　　　–なにもしない
　　　　　　　　set curItem to j
　　　　　　end if
　　　　end if
　　　　
　　　　set aCount to aCount + 1
　　end repeat
　　
　　if sucF = true then
　　　　set the end of curList to aCount
　　　　set the end of sList to curList
　　end if
　　
　　return sList
　　
end detectRepetition