Word search: Difference between revisions

{{trans|Python}}

dirs = [[1, 0], [ 0, 1], [ 1, 1],

[1, -1], [-1, 0],

print(grid.solutions[size - 1])

{{out}}

=={{header|C sharp}}==

{{trans|Java}}

using System.Collections.Generic;

using System.Linq;

}

}

<pre>

=={{header|C++}}==

#include <iomanip>

#include <ctime>

return 0;

}

{{out}}

<pre>

=={{header|D}}==

{{trans|Java}}

import std.stdio;

writeln(grid.solutions[size - 1]);

}

{{out}}

FILLED was not set to FALSE every time Initialize was called.

Set all integer to (U)long.

#Macro TrmSS (n)

Sleep

{{out}}

<pre style="height:52ex;overflow:scroll"> 0 1 2 3 4 5 6 7 8 9

<br>

The link to "unixdict" appears to be broken so I've used instead the dictionary at "/usr/share/dict/words" which came pre-installed with my Ubuntu 16.04 distribution. I've no idea whether these dictionaries are the same or not.

import (

unixDictPath := "/usr/share/dict/words"

printResult(createWordSearch(readWords(unixDictPath)))

{{out}}

Implementation:

unixdict=:verb define

puz=. (_23{.":i.10),' ',1j1#"1(":i.10 1),.' ',.10 10$fill (I.grid=' ')} grid

puz,' ',1 1}._1 _1}.":((</.~ <.) i.@# * 3%#)key

Notes:

Example run:

0 1 2 3 4 5 6 7 8 9

cop 10 8 nw │ paz 8 10 west │ wan 9 6 west

fizzle 1 6 sw │ penna 1 9 south│

=={{header|Java}}==

{{works with|Java|7}}

import static java.lang.String.format;

import java.util.*;

System.out.println(grid.solutions.get(size - 1));

}

<pre>Attempts: 2

=={{header|Julia}}==

Modified from the Go version. The task listed word list is offline, so the Debian distribution file "words.txt" was used instead.

const stepdirections = [[1, 0], [0, 1], [1, 1], [1, -1], [-1, 0], [0, -1], [-1, -1], [-1, 1]]

printresult(wordmatrix("words.txt", false))

Attempts: 1

Number of words: 25

=={{header|Kotlin}}==

{{trans|Java}}

import java.util.Random

fun main(args: Array<String>) {

printResult(createWordSearch(readWords("unixdict.txt")))

Sample output:

=={{header|Nim}}==

{{trans|D}}

const

randomize()

let grid = initGrid("unixdict.txt".readWords())

{{out}}

=={{header|Perl}}==

use strict; # http://www.rosettacode.org/wiki/Word_search

return undef;

{{out}}

<pre>

=={{header|Phix}}==

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

-- demo\rosetta\wordsearch.exw

<span style="color: #0000FF;">{}</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>

{{out}}

<pre>

{{trans|Java}}

{{works with|Python|3.x}}

import re

from random import shuffle, randint

if __name__ == "__main__":

print_result(create_word_search(read_words("unixdict.txt")))

{{out}}

The following zip file is needed for the Unix dictionary and a QB64 words mod for fun! ...and some samples.<br>

[https://www.qb64.org/forum/index.php?action=dlattach;topic=2334.0;attach=5434 Rosetta Code Word Search Challenge.zip]

_TITLE "Puzzle Builder for Rosetta" 'by B+ started 2018-10-31

' 2018-11-02 Now that puzzle is working with basic and plus starters remove them and make sure puzzle works as well.

NEXT

CLOSE #1

----

(or at least it started out that way... so more "inspired by")

;; ---------------------------------------------------------------------------------------------------

(module+ main

[(hash-has-key? cells (cons r c)) (loop r (add1 c) cells msg)]

[else (loop r (add1 c) (hash-set cells (cons r c) (car msg)) (cdr msg))])))))

{{out}}

{{works with|Rakudo|2020.01}}

my $cols = 10;

}

True

{{out|Sample output}}

<pre> A B C D E F G H I J

=={{header|Visual Basic .NET}}==

{{trans|C#}}

ReadOnly Dirs As Integer(,) = {

End Sub

{{out}}

<pre>Attempts: 148

{{libheader|Wren-str}}

{{libheader|Wren-fmt}}

import "/ioutil" for FileUtil

import "/pattern" for Pattern

}

{{out}}

=={{header|zkl}}==

Repeat words allowed. Rather brute force as I didn't realize that the message has to fit exactly.

var [const] dirs=T(T(1,0), T(0,1), T(1,1), T(1,-1), T(-1,0),T(0,-1), T(-1,-1), T(-1,1));

vs,v:=List(),List();

foreach r,c in (10,10){ if(grid[r][c]=="?") grid[r][c]=MSG.next() }

MSG._n==msg.len() // use all of, not more, not less, of msg?

validWord:=RegExp("[A-Za-z]+\n$").matches;

fcn([(r,c,w)]){ "%-19s".fmt("[%d,%d]: %s ".fmt(r,c,w)) }) }

);

{{out}}

<pre>