use AppleScript version "2.7"
use framework "Foundation"
use scripting additions
use jkLib : script "jyoyoKanjiLib" –常用漢字一覧を返してくるAppleScriptライブラリ

property NSString : a reference to current application’s NSString
property NSCountedSet : a reference to current application’s NSCountedSet
property NSJSONSerialization : a reference to current application’s NSJSONSerialization
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding

script jsonStr
　　property aJsonDict : missing value –JSONから読み取ったNSDictionary
　　property jKanji : missing value –常用漢字データ（NSArray）
end script

–図形としての構成要素を指定して漢字検索（厳密にいえば部首ではない）
set p1List to {"氵", "艹", "田"}
set c1Res to searchKanjiFromElementListJ(p1List) of me
–> {"藩"}

set p2List to {"⻖", "生"} –こざとへん。データ内のこざとへんとおおざとの区別がよくわからなかった
set c2Res to searchKanjiFromElementListJ(p2List) of me
–> {"隆"}

–検索に使える部首のキー文字の一覧を返す
–set qList to listupQueryKeysForKanji() of me
–> {"工", "棘", "左", "位", "婁", "攴", …}

on searchKanjiFromElementListJ(aQueryList as list)
　　script spd
　　　　property aList : {}
　　　　property bList : {}
　　end script
　　
　　set aLen to length of aQueryList
　　if aLen = 1 then return searchKanjiFromElementJ(first item of aQueryList) of me
　　
　　set (aList of spd) to {}
　　set (bList of spd) to {}
　　repeat with i in aQueryList
　　　　set j to contents of i
　　　　set tmpRes to searchKanjiFromElementJ(j) of me
　　　　set the end of (aList of spd) to tmpRes
　　end repeat
　　
　　return searchDuplicateItemsOnlyIn2DList((aList of spd)) of me
　　
end searchKanjiFromElementListJ

on searchDuplicateItemsOnlyIn2DList(allList as list)
　　set aLen to length of allList
　　
　　set aList to contents of first item of allList
　　set bList to contents of rest of allList
　　
　　repeat with i in bList
　　　　
　　　　set j to contents of i
　　　　
　　　　–aListとbListを連結したListで重複が存在するかをチェック
　　　　set aArray to (current application’s NSArray’s arrayWithArray:aList)
　　　　set bArray to (current application’s NSArray’s arrayWithArray:j)
　　　　set cArray to (aArray’s arrayByAddingObjectsFromArray:bArray)
　　　　
　　　　set aList to returnDuplicatesOnly(cArray, aLen) of me
　　　　
　　end repeat
　　
　　return aList
end searchDuplicateItemsOnlyIn2DList

on searchKanjiFromElementJ(aQueryStr)
　　if (aJsonDict of jsonStr) = missing value then my init()
　　if (jKanji of jsonStr) = missing value then my initJ()
　　set aRes to (aJsonDict of jsonStr)’s valueForKey:aQueryStr
　　if aRes = missing value then return missing value
　　
　　set cArray to aRes’s arrayByAddingObjectsFromArray:(jKanji of jsonStr)
　　set cRes to returnDuplicatesOnly(cArray) of me
　　return cRes
end searchKanjiFromElementJ

on searchKanjiFromElement(aQueryStr)
　　if (aJsonDict of jsonStr) = missing value then my init()
　　set aRes to (aJsonDict of jsonStr)’s valueForKey:aQueryStr
　　if aRes = missing value then return missing value
　　return aRes as list
end searchKanjiFromElement

on listupQueryKeysForKanji()
　　if (aJsonDict of jsonStr) = missing value then my init()
　　set aRes to (aJsonDict of jsonStr)’s allKeys()
　　return aRes as list
end listupQueryKeysForKanji

on initJ()
　　set (jKanji of jsonStr) to current application’s NSArray’s arrayWithArray:(retJyouyouKanji() of jkLib)
end initJ

on init()
　　–https://github.com/yagays/kanjivg-radical
　　set aPath to (POSIX path of (path to me)) & "Contents/Resources/element2kanji.json"
　　set jsonString to NSString’s alloc()’s initWithContentsOfFile:(aPath) encoding:(NSUTF8StringEncoding) |error|:(missing value)
　　set jsonData to jsonString’s dataUsingEncoding:(NSUTF8StringEncoding)
　　set (aJsonDict of jsonStr) to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value)
end init

on returnDuplicatesOnly(anArray)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:anArray
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly