set docUTIList to {"net.daringfireball.markdown", "com.apple.iwork.pages.sffpages"}
set origFol to (choose folder)
set dRes to detectDocNameDuplicateWithoutExt(origFol, docUTIList) of me
–> true / false

–origFolはaliasでもPOSIX pathでも可
on detectDocNameDuplicateWithoutExt(origFol, docTypeList as list)
　　script spdMD
　　　　property allResList : {}
　　end script
　　
　　set (allResList of spdMD) to {}
　　
　　repeat with i in docTypeList
　　　　set j to contents of i
　　　　set aResList to (mdLib’s searchFolders:{origFol} searchString:("kMDItemContentTypeTree CONTAINS %@") searchArgs:{j})
　　　　if aResList = missing value or aResList = {} then
　　　　　　–Hitしなかった
　　　　else
　　　　　　set (allResList of spdMD) to (allResList of spdMD) & aResList
　　　　end if
　　end repeat
　　
　　set aLen to length of contents of (allResList of spdMD)
　　if aLen = 0 then error "No match"
　　
　　set anArray to current application’s NSArray’s arrayWithArray:(allResList of spdMD)
　　set aRes to anArray’s valueForKeyPath:"lastPathComponent.stringByDeletingPathExtension"
　　set b1Res to uniquify1DList(aRes as list, true) of me
　　set b1Len to length of b1Res
　　
　　if aLen = b1Len then
　　　　return true — No Duplicates
　　else
　　　　return false –Some duplicates
　　end if
end detectDocNameDuplicateWithoutExt

–1D/2D Listをユニーク化
on uniquify1DList(theList as list, aBool as boolean)
　　set aArray to current application’s NSArray’s arrayWithArray:theList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　return bArray as list
end uniquify1DList