" # WordSearch # Description In word search puzzles you get a square of letters and have to find specific words in them. For example: ```text jefblpepre camdcimgtc oivokprjsm pbwasqroua rixilelhrs wolcqlirpc screeaumgr alxhpburyi jalaycalmp clojurermt ``` There are several programming languages hidden in the above square. Words can be hidden in all kinds of directions: left-to-right, right-to-left, vertical and diagonal. Given a puzzle and a list of words return the location of the first and last letter of each word. ## Hint 2-dimensional array and Point class might be your friends here. Also, search result needs to be in desired format for unit tests, so separate class definition might be needed for word search results. " Class { #name : 'WordSearchTest', #superclass : 'ExercismTest', #instVars : [ 'wordSearch' ], #category : 'Exercise@WordSearch', #package : 'Exercise@WordSearch' } { #category : 'config' } WordSearchTest class >> exercise [ ^ (ExercismExercise for: self) difficulty: 6; topics: #('arrays' 'dictionary' 'strings' 'iteration' 'extension-methods' 'points'); yourself ] { #category : 'config' } WordSearchTest class >> uuid [ "Answer a unique id for this exercise" ^'152deac5-8e81-401c-8a6a-b89c2a84c91c' ] { #category : 'config' } WordSearchTest class >> version [ "Generated from specification: 3 March 2025" ^'Not specified' ] { #category : 'running' } WordSearchTest >> setUp [ super setUp. wordSearch := WordSearch new ] { #category : 'tests' } WordSearchTest >> test01_ShouldAcceptAnInitialGameGridAndATargetSearchWord [ "Tip: Remember to review the class [Comment] tab" | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('jefblpepre') . self assert: (result at: 'clojure') isNil. ] { #category : 'tests' } WordSearchTest >> test02_ShouldLocateOneWordWrittenLeftToRight [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('clojurermt'). self assert: (result at: 'clojure') start row equals: 1. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 1. self assert: (result at: 'clojure') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test03_ShouldLocateTheSameWordWrittenLeftToRightInADifferentPosition [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('mtclojurer') . self assert: (result at: 'clojure') start row equals: 1. self assert: (result at: 'clojure') start column equals: 3. self assert: (result at: 'clojure') end row equals: 1. self assert: (result at: 'clojure') end column equals: 9. ] { #category : 'tests' } WordSearchTest >> test04_ShouldLocateADifferentLeftToRightWord [ | result | result := wordSearch searchWordsToSearchFor: #('coffee') grid: #('coffeelplx'). self assert: (result at: 'coffee') start row equals: 1. self assert: (result at: 'coffee') start column equals: 1. self assert: (result at: 'coffee') end row equals: 1. self assert: (result at: 'coffee') end column equals: 6. ] { #category : 'tests' } WordSearchTest >> test05_ShouldLocateThatDifferentLeftToRightWordInADifferentPosition [ | result | result := wordSearch searchWordsToSearchFor: #('coffee') grid: #('xcoffeezlp'). self assert: (result at: 'coffee') start row equals: 1. self assert: (result at: 'coffee') start column equals: 2. self assert: (result at: 'coffee') end row equals: 1. self assert: (result at: 'coffee') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test06_ShouldLocateALeftToRightWordInTwoLineGrid [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('jefblpepre' 'tclojurerm'). self assert: (result at: 'clojure') start row equals: 2. self assert: (result at: 'clojure') start column equals: 2. self assert: (result at: 'clojure') end row equals: 2. self assert: (result at: 'clojure') end column equals: 8. ] { #category : 'tests' } WordSearchTest >> test07_ShouldLocateALeftToRightWordInThreeLineGrid [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('camdcimgtc' 'jefblpepre' 'clojurermt') . self assert: (result at: 'clojure') start row equals: 3. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 3. self assert: (result at: 'clojure') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test08_ShouldLocateALeftToRightWordInTenLineGrid [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test09_ShouldLocateThatLeftToRightWordInADifferentPositionInATenLineGrid [ | result | result := wordSearch searchWordsToSearchFor: #('clojure') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'clojurermt' 'jalaycalmp'). self assert: (result at: 'clojure') start row equals: 9. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 9. self assert: (result at: 'clojure') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test10_ShouldLocateADifferentLeftToRightWordInATenLineGrid [ | result | result := wordSearch searchWordsToSearchFor: #('fortran') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'fortranftw' 'alxhpburyi' 'clojurermt' 'jalaycalmp'). self assert: (result at: 'fortran') start row equals: 7. self assert: (result at: 'fortran') start column equals: 1. self assert: (result at: 'fortran') end row equals: 7. self assert: (result at: 'fortran') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test11_ShouldLocateMultipleWords [ | result | result := wordSearch searchWordsToSearchFor: #('fortran' 'clojure') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'fortranftw' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'fortran') start row equals: 7. self assert: (result at: 'fortran') start column equals: 1. self assert: (result at: 'fortran') end row equals: 7. self assert: (result at: 'fortran') end column equals: 7. ] { #category : 'tests' } WordSearchTest >> test12_ShouldLocateASingleWordWrittenRightToLeft [ | result | result := wordSearch searchWordsToSearchFor: #('elixir') grid: #('rixilelhrs'). self assert: (result at: 'elixir') start row equals: 1. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 1. self assert: (result at: 'elixir') end column equals: 1. ] { #category : 'tests' } WordSearchTest >> test13_ShouldLocateMultipleWordsWrittenInDifferentHorizontalDirections [ | result | result := wordSearch searchWordsToSearchFor: #('elixir' 'clojure') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. ] { #category : 'tests' } WordSearchTest >> test14_ShouldLocateWordsWrittenTopToBottom [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. ] { #category : 'tests' } WordSearchTest >> test15_ShouldLocateWordsWrittenBottomToTop [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. ] { #category : 'tests' } WordSearchTest >> test16_ShouldLocateWordsWrittenTopLeftToBottomRight [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust' 'java') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. self assert: (result at: 'java') start row equals: 1. self assert: (result at: 'java') start column equals: 1. self assert: (result at: 'java') end row equals: 4. self assert: (result at: 'java') end column equals: 4. ] { #category : 'tests' } WordSearchTest >> test17_ShouldLocateWordsWrittenBottomRightToTopLeft [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust' 'java' 'lua') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. self assert: (result at: 'java') start row equals: 1. self assert: (result at: 'java') start column equals: 1. self assert: (result at: 'java') end row equals: 4. self assert: (result at: 'java') end column equals: 4. self assert: (result at: 'lua') start row equals: 9. self assert: (result at: 'lua') start column equals: 8. self assert: (result at: 'lua') end row equals: 7. self assert: (result at: 'lua') end column equals: 6. ] { #category : 'tests' } WordSearchTest >> test18_ShouldLocateWordsWrittenBottomLeftToTopRight [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust' 'java' 'lua' 'lisp') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. self assert: (result at: 'java') start row equals: 1. self assert: (result at: 'java') start column equals: 1. self assert: (result at: 'java') end row equals: 4. self assert: (result at: 'java') end column equals: 4. self assert: (result at: 'lua') start row equals: 9. self assert: (result at: 'lua') start column equals: 8. self assert: (result at: 'lua') end row equals: 7. self assert: (result at: 'lua') end column equals: 6. self assert: (result at: 'lisp') start row equals: 6. self assert: (result at: 'lisp') start column equals: 3. self assert: (result at: 'lisp') end row equals: 3. self assert: (result at: 'lisp') end column equals: 6. ] { #category : 'tests' } WordSearchTest >> test19_ShouldLocateWordsWrittenTopRightToBottomLeft [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust' 'java' 'lua' 'lisp' 'ruby') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. self assert: (result at: 'java') start row equals: 1. self assert: (result at: 'java') start column equals: 1. self assert: (result at: 'java') end row equals: 4. self assert: (result at: 'java') end column equals: 4. self assert: (result at: 'lua') start row equals: 9. self assert: (result at: 'lua') start column equals: 8. self assert: (result at: 'lua') end row equals: 7. self assert: (result at: 'lua') end column equals: 6. self assert: (result at: 'lisp') start row equals: 6. self assert: (result at: 'lisp') start column equals: 3. self assert: (result at: 'lisp') end row equals: 3. self assert: (result at: 'lisp') end column equals: 6. self assert: (result at: 'ruby') start row equals: 6. self assert: (result at: 'ruby') start column equals: 8. self assert: (result at: 'ruby') end row equals: 9. self assert: (result at: 'ruby') end column equals: 5. ] { #category : 'tests' } WordSearchTest >> test20_ShouldFailToLocateAWordThatIsNotInThePuzzle [ | result | result := wordSearch searchWordsToSearchFor: #('clojure' 'elixir' 'ecmascript' 'rust' 'java' 'lua' 'lisp' 'ruby' 'haskell') grid: #('jefblpepre' 'camdcimgtc' 'oivokprjsm' 'pbwasqroua' 'rixilelhrs' 'wolcqlirpc' 'screeaumgr' 'alxhpburyi' 'jalaycalmp' 'clojurermt'). self assert: (result at: 'clojure') start row equals: 10. self assert: (result at: 'clojure') start column equals: 1. self assert: (result at: 'clojure') end row equals: 10. self assert: (result at: 'clojure') end column equals: 7. self assert: (result at: 'elixir') start row equals: 5. self assert: (result at: 'elixir') start column equals: 6. self assert: (result at: 'elixir') end row equals: 5. self assert: (result at: 'elixir') end column equals: 1. self assert: (result at: 'ecmascript') start row equals: 1. self assert: (result at: 'ecmascript') start column equals: 10. self assert: (result at: 'ecmascript') end row equals: 10. self assert: (result at: 'ecmascript') end column equals: 10. self assert: (result at: 'rust') start row equals: 5. self assert: (result at: 'rust') start column equals: 9. self assert: (result at: 'rust') end row equals: 2. self assert: (result at: 'rust') end column equals: 9. self assert: (result at: 'java') start row equals: 1. self assert: (result at: 'java') start column equals: 1. self assert: (result at: 'java') end row equals: 4. self assert: (result at: 'java') end column equals: 4. self assert: (result at: 'lua') start row equals: 9. self assert: (result at: 'lua') start column equals: 8. self assert: (result at: 'lua') end row equals: 7. self assert: (result at: 'lua') end column equals: 6. self assert: (result at: 'lisp') start row equals: 6. self assert: (result at: 'lisp') start column equals: 3. self assert: (result at: 'lisp') end row equals: 3. self assert: (result at: 'lisp') end column equals: 6. self assert: (result at: 'ruby') start row equals: 6. self assert: (result at: 'ruby') start column equals: 8. self assert: (result at: 'ruby') end row equals: 9. self assert: (result at: 'ruby') end column equals: 5. self assert: (result at: 'haskell') isNil. ] { #category : 'tests' } WordSearchTest >> test21_ShouldFailToLocateWordsThatAreNotOnHorizontalVerticalOrDiagonalLines [ | result | result := wordSearch searchWordsToSearchFor: #('aef' 'ced' 'abf' 'cbd') grid: #('abc' 'def'). self assert: (result at: 'aef') isNil. self assert: (result at: 'abf') isNil. self assert: (result at: 'ced') isNil. self assert: (result at: 'cbd') isNil. ] { #category : 'tests' } WordSearchTest >> test22_ShouldNotConcatenateDifferentLinesToFindAHorizontalWord [ | result | result := wordSearch searchWordsToSearchFor: #('elixir') grid: #('abceli' 'xirdfg'). self assert: (result at: 'elixir') isNil. ] { #category : 'tests' } WordSearchTest >> test23_ShouldNotWrapAroundHorizontallyToFindAWord [ | result | result := wordSearch searchWordsToSearchFor: #('lisp') grid: #('silabcdefp'). self assert: (result at: 'lisp') isNil. ] { #category : 'tests' } WordSearchTest >> test24_ShouldNotWrapAroundVerticallyToFindAWord [ | result | result := wordSearch searchWordsToSearchFor: #('rust') grid: #('s' 'u' 'r' 'a' 'b' 'c' 't'). self assert: (result at: 'rust') isNil. ]