Anagram generator: Difference between revisions

Line 34:

Implementation:

<syntaxhighlight lang=J>anagen=: {{

<syntaxhighlight lang="j">anagen=: {{

seed=. (tolower y)([-.-.)a.{~97+i.26

letters=. ~.seed

Line 65:

Examples:

<syntaxhighlight lang=J> 'unixdict.txt' anagen 'Rosettacode'

<syntaxhighlight lang="j"> 'unixdict.txt' anagen 'Rosettacode'

cetera stood

coat oersted

Line 138:

=={{header|Julia}}==

<syntaxhighlight lang=ruby>const unixwords = split(read("unixdict.txt", String) |> lowercase, r"\s+")

<syntaxhighlight lang="ruby">const unixwords = split(read("unixdict.txt", String) |> lowercase, r"\s+")

function findphrases(anastring::AbstractString, choices, sizelong = 4, n_shortpermitted = 1)

Line 210:

=={{header|Phix}}==

Couldn't really think of a better way than just building a dirty great filter list to get rid of the less interesting answers....

with javascript_semantics

constant bo_ring = {"al","alex","am","an","and","anent","ann","ant","ar","ares","art","at","ax","axle",

Line 318:

Using the unixdict.txt word file by default.

<syntaxhighlight lang=~~perl6~~>unit sub MAIN ($in is copy = '', :$dict = 'unixdict.txt');

<syntaxhighlight lang="raku" line>unit sub MAIN ($in is copy = '', :$dict = 'unixdict.txt');

say 'Enter a word or phrase to be anagramed. (Loading dictionary)' unless $in.chars;

Line 382:

Alternatives formed by simply changing the order of the two words have been suppressed.

<syntaxhighlight lang=ecmascript>import "io" for File

<syntaxhighlight lang="ecmascript">import "io" for File

import "./str" for Str, Char

import "./perm" for Comb