Three word location: Difference between revisions

Extra credit: Find a way to populate the word array with actual words.

 

 

=={{header|AppleScript}}==

===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|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|Go}}==

{{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}}

Three word location is:

W18497 W11324 W01322

 

After reversing the procedure:

=={{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

latitude = -81.5638 longitude = 28.3852

</pre>

 

=={{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}}

{{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

To 3-word: ba duji be

From 3-word: -89.99999, -179.99999</pre>

 

=={{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}}

ling everyone amoral

latitude = 28.3852 longitude = -81.5638

</pre>

 

 

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

 

// functions to convert to and from the word format 'W00000'

// and print the results

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

 

{{out}}