Find all words which can be build from the letters in 'ERLANGEN'

erlangen-words.lisp

;; Library: https://github.com/MartinEnders/word-search

(defun erlangen-words ()
  (let ((max-count (length "erlangen")))
    (loop
       for x in (apply #'append
			  (loop for i from 1 upto max-count
			     collect (word-search:find-word i "erlangen")))
	 counting x into count
	 do (format t "~A. ~A~%" count x))))

;;; OUTPUT
CL-USER> (erlangen-words)
; 1. RE
; 2. NR
; 3. NN
; 4. NL
; 5. NA
; 6. LG
; 7. ER
; 8. EG
; 9. AR
; 10. AN
; 11. AG
; 12. RNA
; 13. REN
; 14. REG
; 15. RAN
; 16. RAL
; 17. NEE
; 18. LEG
; 19. LEE
; 20. LEA
; 21. LAN
; 22. LAG
; 23. GEN
; 24. GEN
; 25. GEL
; 26. GAR
; 27. ENG
; 28. EEG
; 29. ARG
; 30. ANN
; 31. ALG
; 32. AEG
; 33. RENN
; 34. REGE
; 35. REAL
; 36. RANN
; 37. RANG
; 38. RAGE
; 39. NENA
; 40. NAGE
; 41. LERN
; 42. LENA
; 43. LEGE
; 44. LEER
; 45. LEAR
; 46. LANG
; 47. LAGE
; 48. GRAN
; 49. GRAL
; 50. GERN
; 51. GERA
; 52. GENE
; 53. GARN
; 54. GARE
; 55. ERNA
; 56. ERLE
; 57. ENGL
; 58. ENGE
; 59. ELAN
; 60. EGER
; 61. EGEL
; 62. EGAL
; 63. EARL
; 64. ARNE
; 65. ARGE
; 66. ANNE
; 67. ALGE
; 68. RENNE
; 69. RENAL
; 70. REGNE
; 71. REGLE
; 72. REGEN
; 73. REGEN
; 74. REGEL
; 75. REGAL
; 76. REALE
; 77. RANGE
; 78. RAGEN
; 79. NEGER
; 80. NAGLE
; 81. NAGER
; 82. NAGEN
; 83. NAGEL
; 84. LERNE
; 85. LEGER
; 86. LEGEN
; 87. LANGE
; 88. LAGER
; 89. LAGEN
; 90. GREEN
; 91. GLENN
; 92. GERNE
; 93. GENRE
; 94. GENEN
; 95. GARNE
; 96. GAREN
; 97. GALEN
; 98. ERLEN
; 99. ERLAG
; 100. ENGER
; 101. ENGEN
; 102. ENGEL
; 103. ELGAR
; 104. ELENA
; 105. EGELN
; 106. ARGEN
; 107. ANGLE
; 108. ANGER
; 109. ANGEL
; 110. ALGEN
; 111. RENALE
; 112. REGNEN
; 113. REGELN
; 114. REGELN
; 115. REGALE
; 116. REALEN
; 117. RANGEN
; 118. NEGERN
; 119. NAGERN
; 120. NAGELN
; 121. NAGELE
; 122. LERNEN
; 123. LEGERN
; 124. LANGER
; 125. LANGEN
; 126. LAGERN
; 127. LAGERE
; 128. GRANNE
; 129. GERANN
; 130. GENERA
; 131. GARNEN
; 132. ENGELN
; 133. ARENEN
; 134. ANREGE
; 135. ANLEGE
; 136. ANGLER
; 137. ANGERN
; 138. ANGELN
; 139. ANGELN
; 140. ANGELE
; 141. RENALEN
; 142. REGALEN
; 143. RANGELN
; 144. RANGELE
; 145. GENERAL
; 146. GARNELE
; 147. ERLANGE
; 148. ERLAGEN
; 149. ANREGEN
; 150. ANLERNE
; 151. ANLEGER
; 152. ANLEGEN
; 153. ANGLERN
; 154. GARNELEN
; 155. ERLANGEN
; 156. ANLEGERN