Words from neighbour ones: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,392: / Line 1,392: @@
 transpose
 </pre>
+=={{header|Quackery}}==
+<syntaxhighlight lang="Quackery">  [ [] swap
+    behead nested swap
+    witheach
+      [ over 0 peek
+        over = iff
+          drop done
+        nested
+        dip join ]
+     join ]                is unique   (   [ --> [ )
+  [ over find swap found ] is has      ( [ x --> b )
+  [ [] swap 9 split drop
+    witheach
+      [ i^ peek join ] ]   is diagonal (   [ --> [ )
+  $ "rosetta/unixdict.txt" sharefile
+  drop nest$
+  [] [] rot witheach
+    [ dup size 9 < iff
+        drop
+      else
+        [ nested join ] ]
+  dup temp put
+  dup size 8 - times
+    [ dup diagonal
+      temp share
+      over has iff
+        [ nested
+          swap dip join ]
+      else drop
+      behead drop ]
+  temp release
+  drop
+  unique
+  witheach
+  [ echo$
+    i^ 4 mod 3 = iff
+     cr else sp ]</syntaxhighlight>
+{{out}}
+<pre>applicate architect astronomy christine
+christoph committee composite constrict
+construct different extensive greenwood
+implement improvise intercept interpret
+interrupt philosoph prescript receptive
+telephone transcend transport transpose</pre>
 =={{header|Raku}}==