Hex words: Difference between revisions

Line 16:

<~~lang~~ 11l>F digroot(=n)

<syntaxhighlight lang="11l">F digroot(=n)

L n > 9

n = sum(String(n).map(d -> Int(d)))

Line 35:

print(f:‘{a[2]} {a[0]:<6}{a[1]:10}’)

print(‘Total count of those words: ’results.len)</~~lang~~>

print(‘Total count of those words: ’results.len)</syntaxhighlight>

Line 90:

=={{header|ALGOL 68}}==

<~~lang~~ algol68># find words that contain only hex digits a-f #

<syntaxhighlight lang="algol68"># find words that contain only hex digits a-f #

IF FILE input file;

STRING file name = "unixdict.txt";

Line 214:

OD;

print( ( "Found ", whole( count 4, 0 ), " hex words with 4 or more distinct digits", newline ) )

FI</~~lang~~>

FI</syntaxhighlight>

<pre>

Line 263:

=={{header|Arturo}}==

<~~lang~~ rebol>words: map read.lines relative "unixdict.txt" => strip

<syntaxhighlight lang="rebol">words: map read.lines relative "unixdict.txt" => strip

hexWords: new []

Line 301:

printTable sort.by:'root hexWords

printTable sort.descending.by:'decimal select hexWords 'h ->

4 =< size unique split h\hex</~~lang~~>

4 =< size unique split h\hex</syntaxhighlight>

Line 355:

=={{header|AutoHotkey}}==

<~~lang~~ ~~AutoHotkey~~>FileRead, wList, % A_Desktop "\unixdict.txt"

<syntaxhighlight lang="autohotkey">FileRead, wList, % A_Desktop "\unixdict.txt"

hexWords := Hex_words(wList)

Header := "Base 10`t`tWord`tRoot`n"

Line 398:

until (sum < 10)

return sum

}</~~lang~~>

}</syntaxhighlight>

<pre>Base 10 Word Root

Line 445:

=={{header|AWK}}==

# syntax: GAWK -f HEX_WORDS.AWK unixdict.txt

{ nf += NF

Line 500:

return num + (length(s) ? 16*hex2dec(s) : 0)

}

</syntaxhighlight>

</lang>

<pre>

Line 551:

=={{header|Factor}}==

<~~lang~~ factor>USING: formatting io io.encodings.ascii io.files kernel literals

<syntaxhighlight lang="factor">USING: formatting io io.encodings.ascii io.files kernel literals

math math.parser prettyprint sequences sets sorting ;

Line 572:

words [ cardinality 3 > ] filter [ hex> ] f info-by

" such words found which contain 4 or more different digits." print</~~lang~~>

" such words found which contain 4 or more different digits." print</syntaxhighlight>

<pre>

Line 620:

=={{header|J}}==

<~~lang~~ J> (#~$&1 0@#)(#,&":])/:~((+/@(".&>@":)^:_@]; ;~) dfh)@> (#~ (*/@e.&'abcdef' * 3<#)@>) cutLF fread'unixdict.txt'

<syntaxhighlight lang="j"> (#~$&1 0@#)(#,&":])/:~((+/@(".&>@":)^:_@]; ;~) dfh)@> (#~ (*/@e.&'abcdef' * 3<#)@>) cutLF fread'unixdict.txt'

26

│1│43966 │abbe │

Line 662:

│3│44013 │abed │

│1│14600926│decade│

│1│57007 │deaf │</~~lang~~>

│1│57007 │deaf │</syntaxhighlight>

=={{header|jq}}==

Line 669:

'''Preliminaries'''

<~~lang~~ jq>def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;

<syntaxhighlight lang="jq">def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;

# . may be a decimal number or a string representing a decimal number

Line 691:

.[1] += $i * .[0]

| .[0] *= 16 )

| .[1]; </~~lang~~>

| .[1]; </syntaxhighlight>

'''The Task'''

<~~lang~~ jq>def task:

<syntaxhighlight lang="jq">def task:

def format: "\(.[0]|lpad(8)) -> \(.[1]|lpad(9)) -> \(.[2])";

Line 715:

(($digits4|sort_by(.[1])|reverse[] ) | format) ;

task</~~lang~~>

task</syntaxhighlight>

'''Invocation'''

Line 767:

=={{header|Julia}}==

<~~lang~~ julia>digroot(n) = (while n > 9 n = sum(digits(n)) end; n)

<syntaxhighlight lang="julia">digroot(n) = (while n > 9 n = sum(digits(n)) end; n)

function hexwords(wordfile = "unixdict.txt")

Line 790:

hexwords()

</~~lang~~>{{out}}

</syntaxhighlight>{{out}}

<pre>

Hex words in unixdict.txt:

Line 843:

=={{header|Perl}}==

<~~lang~~ perl>#!/usr/bin/perl

<syntaxhighlight lang="perl">#!/usr/bin/perl

use strict; # https://rosettacode.org/wiki/Hex_words

Line 863:

"total count = @{[ scalar @byroot ]} and @{[ scalar @bydecimal

]} have at least 4 distinct digits\n",

reverse nsort_by { (split ' ')[1] } @bydecimal;</~~lang~~>

reverse nsort_by { (split ' ')[1] } @bydecimal;</syntaxhighlight>

<pre>

Line 909:

=={{header|Phix}}==

with javascript_semantics

function af(string s) return max(s)<='f' and min(s)>='a' end function

Line 938:

tags = extract(tags,reverse(custom_sort(extract(decml,tags),tagset(length(tags)))))

printf(1," %d with 4 or more distinct characters:\n\n %s\n",{length(tags),caejasp()})

<pre>

Line 987:

=={{header|Python}}==

<~~lang~~ python>def digroot(n):

<syntaxhighlight lang="python">def digroot(n):

while n > 9:

n = sum([int(d) for d in str(n)])

Line 1,010:

print("Total count of those words:", len(results))

</~~lang~~>{{out}}

</syntaxhighlight>{{out}}

<pre>

Hex words in unixdict.txt:

Line 1,064:

=={{header|Raku}}==

Sorted by digital root with a secondary alphabetical sort.

<lang ~~perl6~~>sub dr (Int $_ is copy) { $_ = dr(.comb.sum) while .chars > 1; $_ }

<syntaxhighlight lang="raku" line>sub dr (Int $_ is copy) { $_ = dr(.comb.sum) while .chars > 1; $_ }

my %hex = './unixdict.txt'.IO.slurp.words.grep( *.chars > 3 )\

Line 1,075:

say "\nOf which {+%many} contain at least four distinct characters:";

printf "%6s ➡ %8d ➡ %d\n", .key, :16(.key), .value for %many.sort: { -:16(.key) }</~~lang~~>

printf "%6s ➡ %8d ➡ %d\n", .key, :16(.key), .value for %many.sort: { -:16(.key) }</syntaxhighlight>

<pre>26 hex words longer than 3 characters found in unixdict.txt:

Line 1,122:

=={{header|Vlang}}==

<~~lang~~ vlang>import os

<syntaxhighlight lang="vlang">import os

import strconv

import math

Line 1,178:

}

println('$lines.len hex words with 4 or more distinct letters found')

}</~~lang~~>

}</syntaxhighlight>

<pre>Same as wren entry</pre>

Line 1,187:

<~~lang~~ ecmascript>import "./ioutil" for FileUtil

<syntaxhighlight lang="ecmascript">import "./ioutil" for FileUtil

import "./fmt" for Conv, Fmt

import "./math" for Int

Line 1,213:

digits4.sort { |a, b| Num.fromString(a.split("->")[1]) > Num.fromString(b.split("->")[1]) }

System.print(digits4.join("\n"))

System.print("\n%(digits4.count) such words found which contain 4 or more different digits.")</~~lang~~>

System.print("\n%(digits4.count) such words found which contain 4 or more different digits.")</syntaxhighlight>