Three word location: Difference between revisions

===Index words===

When the words are index-based as in the task description, it's not necessary to generate all 28126.

-- "Convert" the coordinates to positive integers by adding enough degrees to ensure positive results,

-- multiplying by enough to left shift by four decimal places, and rounding.

set threeWords to locationToWords(location)

set checkLocation to wordsToLocation(threeWords)

 

{{output}}

 

===Actual words===

script o

property wordList : listOfWords

set threeWords to locationToWords(location, o's wordList)

set checkLocation to wordsToLocation(threeWords, o's wordList)

 

{{output}}

 

=={{header|AutoHotkey}}==

Conversion based on Wren<br>

WordList From link suggested by Symsyn

FileRead, wordList, % A_Temp "\wordlist.txt"

 

return [(ilat-900000)/10000, (ilon-1800000)/10000]

}

{{out}}

<pre>LL = 28.3852, -81.5638

=={{header|C}}==

{{trans|Go}}

#include <stdlib.h>

 

printf(" latitude = %0.4f, longitude = %0.4f\n", lat, lon);

return 0;

 

{{out}}

{{libheader| System.SysUtils}}

{{Trans|Go}}

program Three_word_location;

 

end.

 

 

{{out}}

=={{header|FreeBASIC}}==

{{trans|Nim}}

Dim As Double lat = 28.3852, longi = -81.5638

Print Using " latitude = &, longitude = &"; lat; longi

Print !"\nAfter reversing the procedure:"

Print Using " latitude = &, longitude = &"; lat; longi

{{out}}

<pre>Igual que la entrada de Nim</pre>

{{trans|Wren}}

Though no need for big integers as we have int64 built in.

 

import (

fmt.Println("\nAfter reversing the procedure:")

fmt.Printf(" latitude = %0.4f, longitude = %0.4f\n", lat, lon)

 

{{out}}

=={{header|J}}==

 

 

With <code>wordlist=: ('W',}.@":)&.> 1e5+i.3e4</code>

 

W18497 W11324 W01322

colw wloc 28.3852 _81.5638

 

diplotene chamomile aeroplanist

colw wloc 28.3852 _81.5638

 

=={{header|Julia}}==

Direct translation from the SymSyn example given by the task creator, though note that idiomatic Julia would usually code this as two small encode() and decode() functions.

# Three Word Location - convert latitude and longitude to three words

LAT = 28.3852

# display values

println("latitude = $lat longitude = $lon")

<pre>

W18497 W11324 W01322

 

=== Idiomatic version with scrambling===

 

const LAT = 28.3852

lat, lon = threeworddecode(words..., 12345678)

println("latitude = $lat longitude = $lon")

<pre>

W18497 W11324 W01322

=={{header|Kotlin}}==

{{trans|Go}}

return "W%05d".format(w)

}

println("After reversing the procedure:")

println(" latitude = %.4f, longitude = %.4f".format(lat, lon))

{{out}}

<pre>Starting figures:

=={{header|Lua}}==

{{trans|C}}

return string.format("W%05d", w)

end

-- and print the results

print("After reversing the procedure:")

{{out}}

<pre>Starting figures:

=={{header|Nim}}==

{{trans|Go}}

 

func toWord(w: int64): string = &"W{w:05}"

# Print the results.

echo "\nAfter reversing the procedure:"

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use feature 'say';

printf "Coordinates: %s, %s (%s)\n To Index: %s\n To 3-word: %s\nFrom 3-word: %s, %s\n From Index: %s, %s\n\n",

$lat, $lon, $description, join(' ',@index), join(' ',@words), w_decode(\@words), w_decode(\@index, sub { shift() });

{{out}}

<pre>Coordinates: 51.4337, -0.2141 (Wimbledon)

=={{header|Phix}}==

{{trans|Go}}

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Three_word_location.exw

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"\nAfter reversing the procedure:\n"</span><span style="color: #0000FF;">)</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">" latitude = %0.4f, longitude = %0.4f\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">lat</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">lon</span><span style="color: #0000FF;">})</span>

{{out}}

<pre>

* u - long u (due boo moo)

 

my @synth = flat < b d f h j k l m n p r s t w y z > X~ < a e i o u >;

my %htnys = @synth.antipairs;

printf "Coordinates: %s, %s\n To Index: %s\n To 3-word: %s\nFrom 3-word: %s, %s\n From Index: %s, %s\n\n",

$lat, $lon, @index.Str, @words.Str, w-decode(@words), w-decode @index, :f( { $_ } );

{{out}}

 

10 times better accuracy in the same three, 6-letter word space.

 

my @synth = flat < b d f j k n p r s t w > X~ < a e i o u >;

my %htnys = @synth.antipairs;

printf "Coordinates: %s, %s\n To Index: %s\n To 3-word: %s\nFrom 3-word: %s, %s\n\n",

$lat, $lon, w-encode($lat, $lon, :f({$_})).Str, @words.Str, w-decode(@words);

{{out}}

<pre>Coordinates: 51.43372, -0.21412

 

=={{header|Symsyn}}==

| Three Word Location - convert latitude and longitude to three words

 

return -1

 

{{out}}

<pre>

Using Real Words

 

 

| Three Word Location - convert latitude and longitude to three words

return -1

 

 

{{Output}}

=={{header|Vlang}}==

{{trans|Go}}

fn to_word(w i64) string { return 'W${w:05}' }

println("\nAfter reversing the procedure:")

println(" latitude = ${lat:.4}, longitude = ${lon:.4}")

 

{{out}}

 

Note that bitwise operations are limited to 32-bit unsigned integers in Wren which isn't big enough here so we use BigInts instead.

import "/big" for BigInt

 

// and print the results

System.print("\nAfter reversing the procedure:")

 

{{out}}