Rosetta Code

Anagrams: Difference between revisions

Page Discussion

Anagrams (view source)

Revision as of 13:16, 7 February 2023

637 bytes removed ,  1 year ago
m
→‎{{header|AppleScript}}: New sort handler URL, tidy-up.
m (→‎{{header|AppleScript}}: New sort handler URL, tidy-up.)
Line 916:
 
=={{header|AppleScript}}==
=={{header|AppleScript}}==
 
<syntaxhighlight lang="applescript">use AppleScript version "2.3.1" -- OS X 10.9 (Mavericks) or later — for these 'use' commands!.
use sorter : script ¬
-- Uses the customisable AppleScript-coded sort shown at <https://macscripter.net/viewtopic.php?pid=194430#p194430>.
"Custom Iterative Ternary Merge Sort" -- <www.macscripter.net/t/timsort-and-nigsort/71383/3>
-- It's assumed scripters will know how and where to install it as a library.
use sorter : script "Custom Iterative Ternary Merge Sort"
use scripting additions
 
on join(lst, delim)
set astid setto AppleScript's text item delimiters to astid▼
set AppleScript's text item delimiters to delim
set txt to lst as text
set AppleScript's text item delimiters to astid
return txt
end join
 
on largestAnagramGroups(listOfWords)
script o
property wordList : listOfWords
property doctoredWordsgroupingTexts : {}wordList's items
property longestRangeslargestGroupSize : {}0
property outputlargestGroupRanges : {}
▼
on isGreaterjudgeGroup(ai, bj)▼
set o's longestRangesgroupSize to {{j - i, j}}+ 1▼
if (groupSize < largestGroupSize) then -- Most likely.
else if (groupSize = largestGroupSize) then -- Next most likely.
set end of o's longestRangeslargestGroupRanges to {i, j}▼
else -- Largest group endso iffar.▼
set o's longestRangeslargestGroupRanges to {{i, j - 1}}▼
set longestRunLengthlargestGroupSize to thisRunLengthgroupSize▼
end if▼
end scriptjudgeGroup▼
on isGreater(a, b)
return (a's beginning > b's beginning)▼
end isGreater▼
end script
set wordCount to (count o's wordList)
ignoring case
-- BuildReplace anotherthe listwords containing doctored versions ofin the inputgroupingTexts wordslist with theirsorted-character characters lexically sortedversions.
setrepeat astidwith toi AppleScript'sfrom text1 itemto delimiterswordCount
set AppleScriptchrs to o's textgroupingTexts's item delimiters toi's ""characters
tell sorter to sort(o's outputchrs, 1, -1, {comparer:byFirstItem})▼
repeat with thisWord in o's wordList
set theseCharso's to thisWordgroupingTexts's charactersitem i to join(chrs, "")
-- A straight ascending in-place sort here.
tell sorter to sort(theseChars, 1, -1, {}) -- Params: (list, start index, end index, customisation spec.).▼
set end of o's doctoredWords to theseChars as text▼
end repeat
-- FindSort the range(s)list ofto thegroup longestits run(s)contents ofand equalecho textsthe moves in the doctored-original word list.▼
▲ set AppleScript's text item delimiters to astid
tell sorter to sort(o's doctoredWordsgroupingTexts, 1, -1wordCount, {slave:{o's wordList}})▼
-- SortFind the list range(s) of doctoredthe wordslongest torun(s) groupof them, rearranging the original-word listequal ingrouping paralleltexts.
▲ tell sorter to sort(o's doctoredWords, 1, -1, {slave:{o's wordList}})
▲
▲ -- Find the range(s) of the longest run(s) of equal texts in the doctored-word list.
set longestRunLength to 1▼
set i to 1
set currentText to beginning of o's doctoredWordsgroupingTexts
repeat with j from 2 to (count o's doctoredWords)wordCount
set thisText to item j of o's doctoredWordsgroupingTexts's item j
if (thisText is not currentText) then
settell thisRunLengtho to judgeGroup(i, j - i1)
if (thisRunLength > longestRunLength) then
▲ set o's longestRanges to {{i, j - 1}}
▲ set longestRunLength to thisRunLength
else if (thisRunLength = longestRunLength) then
set end of o's longestRanges to {i, j - 1}
▲ end if
set currentText to thisText
set i to j
end if
end repeat
set finalRunLength toif (j -> i) +then 1tell o to judgeGroup(i, j)
if (finalRunLength > longestRunLength) then
▲ set o's longestRanges to {{i, j}}
else if (finalRunLength = longestRunLength) then
▲ set end of o's longestRanges to {i, j}
▲ end if
-- GetExtract the group(s) of words occupying the same range(s) in the original- word list.
▲ set longestRunLengthoutput to 1{}
-- The stable parallel sort above will have kept each group's words in the same order with respect to each other.
repeat with thisRange in o's longestRangeslargestGroupRanges
set {i, j} to thisRange
set-- endAdd ofthis o's outputgroup to itemsthe i thru j of o's wordListoutput.
set thisGroup to o's wordList's items i thru j
▲ tell sorter to sort(theseCharsthisGroup, 1, -1, {}) -- Params:Not (list,necessary startwith index,unixdict.txt. endBut index, customisation spec.)hey.
▲ set end of o's doctoredWordsoutput to theseChars as textthisGroup
end repeat
-- As a final flourish, sort the list of groups byon their first items.
tell sorter to sort(output, 1, -1, {comparer:o})
script byFirstItem
▲ on isGreater(a, b)
▲ return (a's beginning > b's beginning)
▲ end isGreater
▲ end script
▲ tell sorter to sort(o's output, 1, -1, {comparer:byFirstItem})
end ignoring
return o's output
end largestAnagramGroups
 
-- The closing values of AppleScript 'run handler' variables not explicity declared local are
-- saved back to the script file afterwards — and "unixdict.txt" contains 25,104 words!
local wordFile, wordList
set wordFile to ((path to desktop as text) & "www.rosettacode.org:unixdict.txt") as «class furl»▼
-- The words in "unixdict.txt" are arranged one per line in alphabetical order.
-- Some contain punctuation characters, so they're best extracted as 'paragraphs' rather than as 'words'.
▲set wordFile to ((path to desktop as text) & "unixdict.txt") as «class furl»
set wordList to paragraphs of (read wordFile as «class utf8»)
return largestAnagramGroups(wordList)</syntaxhighlight>
Line 1,001:
{{output}}
<syntaxhighlight lang="applescript">{{"abel", "able", "bale", "bela", "elba"}, {"alger", "glare", "lager", "large", "regal"}, {"angel", "angle", "galen", "glean", "lange"}, {"caret", "carte", "cater", "crate", "trace"}, {"elan", "lane", "lean", "lena", "neal"}, {"evil", "levi", "live", "veil", "vile"}}</syntaxhighlight>
 
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi <br> or android 32 bits with application Termux}}
Nig
557

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/336608"