18 lines
401 B
Text
18 lines
401 B
Text
set seed 17760704
|
|
import delimited http://www.puzzlers.org/pub/wordlists/unixdict.txt, clear
|
|
save temp, replace
|
|
replace v1=strreverse(v1)
|
|
merge 1:1 v1 using temp, nogen keep(3)
|
|
drop if v1>=strreverse(v1)
|
|
count
|
|
158
|
|
sample 5, count
|
|
gen v2=strreverse(v1)
|
|
list, noheader noobs
|
|
+-------------+
|
|
| evil live |
|
|
| pat tap |
|
|
| at ta |
|
|
| nit tin |
|
|
| ku uk |
|
|
+-------------+
|