set origFol to POSIX path of (choose folder)

set aResList to mdLib’s searchFolders:{origFol} searchString:("kMDItemContentTypeTree CONTAINS %@ || kMDItemContentTypeTree CONTAINS %@") searchArgs:{"net.daringfireball.markdown", "com.apple.iwork.pages.sffpages"}
if aResList = missing value or aResList = {} then
　　return false
end if

set anArray to current application’s NSArray’s arrayWithArray:aResList
set aRes to anArray’s valueForKeyPath:"lastPathComponent"

set bLen to length of (aRes as list)

set b1Res to uniquify1DList(aRes as list, true) of me
set b1Len to length of b1Res

if bLen = b1Len then
　　display dialog "No Duplicates"
else
　　display dialog "Some Duplicates"
end if

on getSameItemsInLists(aList as list, bList as list)
　　
　　–ASオブジェクトをCocoaオブジェクトに変換
　　set aArray to current application’s NSArray’s arrayWithArray:aList
　　set bArray to current application’s NSArray’s arrayWithArray:bList
　　
　　— まとめる
　　set allSet to current application’s NSMutableSet’s setWithArray:aArray
　　allSet’s addObjectsFromArray:bArray
　　
　　–重複する要素のみ抜き出す
　　set duplicateSet to current application’s NSMutableSet’s setWithArray:aArray
　　duplicateSet’s intersectSet:(current application’s NSSet’s setWithArray:bArray)
　　
　　–重複部分だけを返す
　　set resArray to duplicateSet’s allObjects()
　　
　　set resList to resArray as list
　　
　　return resList
　　
end getSameItemsInLists