Skip to main content
Commonmark migration
Source Link

#Wolfram Language 1383 1226 bytes

Wolfram Language 1383 1226 bytes

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{i~EditDistance~#,#}&/@StringSplit[Uncompress@"1:eJxtVU1vGzcQzam/Y3rqJTHaHnPThyU5kBxFq8Ao0MtIO9olzOWoJNfK5tfnkVzZStCDjSU55Lw3783o94PuKvnt3butl3D05hyNuo+06X0t/t8///p7xy5oRyf1xDQXrmnDLh2UEDoMFFuhqepz2kVEbGktrg6IX7Grx92ansQ0bUzLqjeRD1byqwvPnXFN2l9zPZBx9MQmjltVqz7Sog+SVlPby9kbF/PNN5D3sa8l3ZxaPmYce2BaehHXKu7Sp941Vq4HGw2RZr4/Gra05C4fzLlpwEdPmc/GFOQ7+a83cuW/YGsBjKrIOe8EXyYe25R65k33c4Y5O7yI/CgZgnIS7RNvsCow1/oidqBpH1Gz2LLNr7qBPtuatok6XmZkUd+loxkKamqOpXSvKcdn77+dNfQ+b22xY0JLCNuKx1fWDKzo8wtobnhoJT9ZXdhRpaXcE8hhIF5KOxepCxw8LP5oQi7xgiNbE4d09CgNR/MitBM+JudkkQYwv7g/At2zB7n1Vfa9zzDhBBDwIaO0PBxGySbZXriA6oIghLiKsFDfaIziKDmkxM445JiHruvdCOehFgc9hlSYYEIJRO1j0XWlTrNsj3qhf7SnSoRWpru7uyvug2YV2x7Jo2YXzLTrtNZS0QUXj+HszXlJpwWHFtxB7G0/mWA6yAf8UfU8IE3T0sOXMSKjLyUZCJJinVy0kZvG+urS/6XlkIls+Bm2EpgBcp7kGG+SrcAHqObJzvwLiJm6cDae4aD8zkxt3x2UlirhSnPZG2sVLXeT/z1VnSJlQle1XOslX6/kW97KPcIeZqkhWwQe2CAFLH06nstR8igJby9+JLSL2FP2tUeL38KBYsDzpPaUVWvgQf6lyXcScjts4TV5Txsf7mi8no6/OuGQ3JZ4JeJeL7eDCjc3MO6h/78qYG2lkdJi/e0MhDQYK/AJf2dfp2ZGOMzjaSVsY3v72mthyk1YjmmHTn+dF2U6rkwsED/B+WeNxZK0RzMXGaU4d2p8bsQUmibp6NOHiNaaWHs9ug4wDBEY/WTzCE2SgRogYAoOpT7AdMS8yUgqKIDpBGb1SSD+ZeyWvUdxc++91n0S2lKk/HFT0ScDMnvV9Isw0KNG+clha/M8SvGYJoA1J/kBVHorKg==",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

#Wolfram Language 1383 1226 bytes

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{i~EditDistance~#,#}&/@StringSplit[Uncompress@"1:eJxtVU1vGzcQzam/Y3rqJTHaHnPThyU5kBxFq8Ao0MtIO9olzOWoJNfK5tfnkVzZStCDjSU55Lw3783o94PuKvnt3butl3D05hyNuo+06X0t/t8///p7xy5oRyf1xDQXrmnDLh2UEDoMFFuhqepz2kVEbGktrg6IX7Grx92ansQ0bUzLqjeRD1byqwvPnXFN2l9zPZBx9MQmjltVqz7Sog+SVlPby9kbF/PNN5D3sa8l3ZxaPmYce2BaehHXKu7Sp941Vq4HGw2RZr4/Gra05C4fzLlpwEdPmc/GFOQ7+a83cuW/YGsBjKrIOe8EXyYe25R65k33c4Y5O7yI/CgZgnIS7RNvsCow1/oidqBpH1Gz2LLNr7qBPtuatok6XmZkUd+loxkKamqOpXSvKcdn77+dNfQ+b22xY0JLCNuKx1fWDKzo8wtobnhoJT9ZXdhRpaXcE8hhIF5KOxepCxw8LP5oQi7xgiNbE4d09CgNR/MitBM+JudkkQYwv7g/At2zB7n1Vfa9zzDhBBDwIaO0PBxGySbZXriA6oIghLiKsFDfaIziKDmkxM445JiHruvdCOehFgc9hlSYYEIJRO1j0XWlTrNsj3qhf7SnSoRWpru7uyvug2YV2x7Jo2YXzLTrtNZS0QUXj+HszXlJpwWHFtxB7G0/mWA6yAf8UfU8IE3T0sOXMSKjLyUZCJJinVy0kZvG+urS/6XlkIls+Bm2EpgBcp7kGG+SrcAHqObJzvwLiJm6cDae4aD8zkxt3x2UlirhSnPZG2sVLXeT/z1VnSJlQle1XOslX6/kW97KPcIeZqkhWwQe2CAFLH06nstR8igJby9+JLSL2FP2tUeL38KBYsDzpPaUVWvgQf6lyXcScjts4TV5Txsf7mi8no6/OuGQ3JZ4JeJeL7eDCjc3MO6h/78qYG2lkdJi/e0MhDQYK/AJf2dfp2ZGOMzjaSVsY3v72mthyk1YjmmHTn+dF2U6rkwsED/B+WeNxZK0RzMXGaU4d2p8bsQUmibp6NOHiNaaWHs9ug4wDBEY/WTzCE2SgRogYAoOpT7AdMS8yUgqKIDpBGb1SSD+ZeyWvUdxc++91n0S2lKk/HFT0ScDMnvV9Isw0KNG+clha/M8SvGYJoA1J/kBVHorKg==",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

Wolfram Language 1383 1226 bytes

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{i~EditDistance~#,#}&/@StringSplit[Uncompress@"1:eJxtVU1vGzcQzam/Y3rqJTHaHnPThyU5kBxFq8Ao0MtIO9olzOWoJNfK5tfnkVzZStCDjSU55Lw3783o94PuKvnt3butl3D05hyNuo+06X0t/t8///p7xy5oRyf1xDQXrmnDLh2UEDoMFFuhqepz2kVEbGktrg6IX7Grx92ansQ0bUzLqjeRD1byqwvPnXFN2l9zPZBx9MQmjltVqz7Sog+SVlPby9kbF/PNN5D3sa8l3ZxaPmYce2BaehHXKu7Sp941Vq4HGw2RZr4/Gra05C4fzLlpwEdPmc/GFOQ7+a83cuW/YGsBjKrIOe8EXyYe25R65k33c4Y5O7yI/CgZgnIS7RNvsCow1/oidqBpH1Gz2LLNr7qBPtuatok6XmZkUd+loxkKamqOpXSvKcdn77+dNfQ+b22xY0JLCNuKx1fWDKzo8wtobnhoJT9ZXdhRpaXcE8hhIF5KOxepCxw8LP5oQi7xgiNbE4d09CgNR/MitBM+JudkkQYwv7g/At2zB7n1Vfa9zzDhBBDwIaO0PBxGySbZXriA6oIghLiKsFDfaIziKDmkxM445JiHruvdCOehFgc9hlSYYEIJRO1j0XWlTrNsj3qhf7SnSoRWpru7uyvug2YV2x7Jo2YXzLTrtNZS0QUXj+HszXlJpwWHFtxB7G0/mWA6yAf8UfU8IE3T0sOXMSKjLyUZCJJinVy0kZvG+urS/6XlkIls+Bm2EpgBcp7kGG+SrcAHqObJzvwLiJm6cDae4aD8zkxt3x2UlirhSnPZG2sVLXeT/z1VnSJlQle1XOslX6/kW97KPcIeZqkhWwQe2CAFLH06nstR8igJby9+JLSL2FP2tUeL38KBYsDzpPaUVWvgQf6lyXcScjts4TV5Txsf7mi8no6/OuGQ3JZ4JeJeL7eDCjc3MO6h/78qYG2lkdJi/e0MhDQYK/AJf2dfp2ZGOMzjaSVsY3v72mthyk1YjmmHTn+dF2U6rkwsED/B+WeNxZK0RzMXGaU4d2p8bsQUmibp6NOHiNaaWHs9ug4wDBEY/WTzCE2SgRogYAoOpT7AdMS8yUgqKIDpBGb1SSD+ZeyWvUdxc++91n0S2lKk/HFT0ScDMnvV9Isw0KNG+clha/M8SvGYJoA1J/kBVHorKg==",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"
compression added
Source Link
DavidC
  • 25.4k
  • 2
  • 52
  • 105

#Wolfram Language 1383 bytes

I miscounted the bytes on my earlier entry (using Word's count of characters plus spaces. The present version does not import a file.1383 1226 bytes

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{EditDistance[i,#]i~EditDistance~#,#}&/@StringSplit[t="Prescription: Murder\nRansom for a Dead Man\nMurder by the Book\nDeath Lends a Hand\nDead Weight\nSuitable for Framing\nLady in Waiting\nShort Fuse\nBlueprint for Murder\nEtude in Black\nThe Greenhouse Jungle\nThe Most Crucial Game\nDagger of the Mind\nRequiem for a Falling Star\nA Stitch in Crime\nThe Most Dangerous Match\nDouble Shock\nLovely But Lethal\nAny Old Port in a Storm\nCandidate for Crime\nDouble Exposure\nPublish or Perish\nMind Over Mayhem\nSwan Song\nA Friend in Deed\nAn Exercise in Fatality\nNegative Reaction\nBy Dawn's Early Light\nTroubled Waters\nPlayback\nA Deadly State of Mind\nForgotten Lady\nA Case of Immunity\nIdentity Crisis\nA Matter of Honor\nNow You See Him...\nLast Salute to the Commodore\nFade in to Murder\nOld Fashioned Murder\nThe Bye-Bye Sky High IQ Murder Case\nTry and Catch Me\nMurder Under Glass\nMake Me a Perfect Murder\nHow to Dial a Murder\nThe Conspirators\nColumbo Goes to the Guillotine\nMurder, Smoke and Shadows\nSex and the Married Detective\nGrand Deceptions\nMurder: A Self Portrait\nColumbo Cries Wolf\nAgenda for Murder\nRest in Peace, Mrs. Columbo\nUneasy Lies the Crown\nMurder in Malibu\nColumbo Goes to College\nCaution@StringSplit[Uncompress@"1: Murder Can Be Hazardous to Your Health\nColumbo and the Murder of a Rock Star\nDeath Hits the Jackpot\nNo Time to Die\nA Bird in the Hand...\nIt's All in the Game\nButterfly in Shades of Grey\nUndercover\nStrange Bedfellows\nA Trace of Murder\nAshes to Ashes\nMurder With Too Many Notes\nColumbo Likes the Nightlife";eJxtVU1vGzcQzam/Y3rqJTHaHnPThyU5kBxFq8Ao0MtIO9olzOWoJNfK5tfnkVzZStCDjSU55Lw3783o94PuKvnt3butl3D05hyNuo+06X0t/t8///p7xy5oRyf1xDQXrmnDLh2UEDoMFFuhqepz2kVEbGktrg6IX7Grx92ansQ0bUzLqjeRD1byqwvPnXFN2l9zPZBx9MQmjltVqz7Sog+SVlPby9kbF/PNN5D3sa8l3ZxaPmYce2BaehHXKu7Sp941Vq4HGw2RZr4/Gra05C4fzLlpwEdPmc/GFOQ7+a83cuW/YGsBjKrIOe8EXyYe25R65k33c4Y5O7yI/CgZgnIS7RNvsCow1/oidqBpH1Gz2LLNr7qBPtuatok6XmZkUd+loxkKamqOpXSvKcdn77+dNfQ+b22xY0JLCNuKx1fWDKzo8wtobnhoJT9ZXdhRpaXcE8hhIF5KOxepCxw8LP5oQi7xgiNbE4d09CgNR/MitBM+JudkkQYwv7g/At2zB7n1Vfa9zzDhBBDwIaO0PBxGySbZXriA6oIghLiKsFDfaIziKDmkxM445JiHruvdCOehFgc9hlSYYEIJRO1j0XWlTrNsj3qhf7SnSoRWpru7uyvug2YV2x7Jo2YXzLTrtNZS0QUXj+HszXlJpwWHFtxB7G0/mWA6yAf8UfU8IE3T0sOXMSKjLyUZCJJinVy0kZvG+urS/6XlkIls+Bm2EpgBcp7kGG+SrcAHqObJzvwLiJm6cDae4aD8zkxt3x2UlirhSnPZG2sVLXeT/z1VnSJlQle1XOslX6/kW97KPcIeZqkhWwQe2CAFLH06nstR8igJby9+JLSL2FP2tUeL38KBYsDzpPaUVWvgQf6lyXcScjts4TV5Txsf7mi8no6/OuGQ3JZ4JeJeL7eDCjc3MO6h/78qYG2lkdJi/e0MhDQYK/AJf2dfp2ZGOMzjaSVsY3v72mthyk1YjmmHTn+dF2U6rkwsED/B+WeNxZK0RzMXGaU4d2p8bsQUmibp6NOHiNaaWHs9ug4wDBEY/WTzCE2SgRogYAoOpT7AdMS8yUgqKIDpBGb1SSD+ZeyWvUdxc++91n0S2lKk/HFT0ScDMnvV9Isw0KNG+clha/M8SvGYJoA1J/kBVHorKg==",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

#Wolfram Language 1383 bytes

I miscounted the bytes on my earlier entry (using Word's count of characters plus spaces. The present version does not import a file.

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{EditDistance[i,#],#}&/@StringSplit[t="Prescription: Murder\nRansom for a Dead Man\nMurder by the Book\nDeath Lends a Hand\nDead Weight\nSuitable for Framing\nLady in Waiting\nShort Fuse\nBlueprint for Murder\nEtude in Black\nThe Greenhouse Jungle\nThe Most Crucial Game\nDagger of the Mind\nRequiem for a Falling Star\nA Stitch in Crime\nThe Most Dangerous Match\nDouble Shock\nLovely But Lethal\nAny Old Port in a Storm\nCandidate for Crime\nDouble Exposure\nPublish or Perish\nMind Over Mayhem\nSwan Song\nA Friend in Deed\nAn Exercise in Fatality\nNegative Reaction\nBy Dawn's Early Light\nTroubled Waters\nPlayback\nA Deadly State of Mind\nForgotten Lady\nA Case of Immunity\nIdentity Crisis\nA Matter of Honor\nNow You See Him...\nLast Salute to the Commodore\nFade in to Murder\nOld Fashioned Murder\nThe Bye-Bye Sky High IQ Murder Case\nTry and Catch Me\nMurder Under Glass\nMake Me a Perfect Murder\nHow to Dial a Murder\nThe Conspirators\nColumbo Goes to the Guillotine\nMurder, Smoke and Shadows\nSex and the Married Detective\nGrand Deceptions\nMurder: A Self Portrait\nColumbo Cries Wolf\nAgenda for Murder\nRest in Peace, Mrs. Columbo\nUneasy Lies the Crown\nMurder in Malibu\nColumbo Goes to College\nCaution: Murder Can Be Hazardous to Your Health\nColumbo and the Murder of a Rock Star\nDeath Hits the Jackpot\nNo Time to Die\nA Bird in the Hand...\nIt's All in the Game\nButterfly in Shades of Grey\nUndercover\nStrange Bedfellows\nA Trace of Murder\nAshes to Ashes\nMurder With Too Many Notes\nColumbo Likes the Nightlife";,{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

#Wolfram Language 1383 1226 bytes

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{i~EditDistance~#,#}&/@StringSplit[Uncompress@"1:eJxtVU1vGzcQzam/Y3rqJTHaHnPThyU5kBxFq8Ao0MtIO9olzOWoJNfK5tfnkVzZStCDjSU55Lw3783o94PuKvnt3butl3D05hyNuo+06X0t/t8///p7xy5oRyf1xDQXrmnDLh2UEDoMFFuhqepz2kVEbGktrg6IX7Grx92ansQ0bUzLqjeRD1byqwvPnXFN2l9zPZBx9MQmjltVqz7Sog+SVlPby9kbF/PNN5D3sa8l3ZxaPmYce2BaehHXKu7Sp941Vq4HGw2RZr4/Gra05C4fzLlpwEdPmc/GFOQ7+a83cuW/YGsBjKrIOe8EXyYe25R65k33c4Y5O7yI/CgZgnIS7RNvsCow1/oidqBpH1Gz2LLNr7qBPtuatok6XmZkUd+loxkKamqOpXSvKcdn77+dNfQ+b22xY0JLCNuKx1fWDKzo8wtobnhoJT9ZXdhRpaXcE8hhIF5KOxepCxw8LP5oQi7xgiNbE4d09CgNR/MitBM+JudkkQYwv7g/At2zB7n1Vfa9zzDhBBDwIaO0PBxGySbZXriA6oIghLiKsFDfaIziKDmkxM445JiHruvdCOehFgc9hlSYYEIJRO1j0XWlTrNsj3qhf7SnSoRWpru7uyvug2YV2x7Jo2YXzLTrtNZS0QUXj+HszXlJpwWHFtxB7G0/mWA6yAf8UfU8IE3T0sOXMSKjLyUZCJJinVy0kZvG+urS/6XlkIls+Bm2EpgBcp7kGG+SrcAHqObJzvwLiJm6cDae4aD8zkxt3x2UlirhSnPZG2sVLXeT/z1VnSJlQle1XOslX6/kW97KPcIeZqkhWwQe2CAFLH06nstR8igJby9+JLSL2FP2tUeL38KBYsDzpPaUVWvgQf6lyXcScjts4TV5Txsf7mi8no6/OuGQ3JZ4JeJeL7eDCjc3MO6h/78qYG2lkdJi/e0MhDQYK/AJf2dfp2ZGOMzjaSVsY3v72mthyk1YjmmHTn+dF2U6rkwsED/B+WeNxZK0RzMXGaU4d2p8bsQUmibp6NOHiNaaWHs9ug4wDBEY/WTzCE2SgRogYAoOpT7AdMS8yUgqKIDpBGb1SSD+ZeyWvUdxc++91n0S2lKk/HFT0ScDMnvV9Isw0KNG+clha/M8SvGYJoA1J/kBVHorKg==",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"
added 1511 characters in body
Source Link
DavidC
  • 25.4k
  • 2
  • 52
  • 105

#Wolfram Language (76 + 561) = 6371383 bytes

This assumes thatI miscounted the listingbytes on my earlier entry (using Word's count of episode titles is stored in the file, "ccharacters plus spaces.txt", consisting of 561 bytes The present version does not import a file.

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{I~EditDistance~#EditDistance[i,#],#}&/@StringSplit[Import@"c@StringSplit[t="Prescription: Murder\nRansom for a Dead Man\nMurder by the Book\nDeath Lends a Hand\nDead Weight\nSuitable for Framing\nLady in Waiting\nShort Fuse\nBlueprint for Murder\nEtude in Black\nThe Greenhouse Jungle\nThe Most Crucial Game\nDagger of the Mind\nRequiem for a Falling Star\nA Stitch in Crime\nThe Most Dangerous Match\nDouble Shock\nLovely But Lethal\nAny Old Port in a Storm\nCandidate for Crime\nDouble Exposure\nPublish or Perish\nMind Over Mayhem\nSwan Song\nA Friend in Deed\nAn Exercise in Fatality\nNegative Reaction\nBy Dawn's Early Light\nTroubled Waters\nPlayback\nA Deadly State of Mind\nForgotten Lady\nA Case of Immunity\nIdentity Crisis\nA Matter of Honor\nNow You See Him.txt"..\nLast Salute to the Commodore\nFade in to Murder\nOld Fashioned Murder\nThe Bye-Bye Sky High IQ Murder Case\nTry and Catch Me\nMurder Under Glass\nMake Me a Perfect Murder\nHow to Dial a Murder\nThe Conspirators\nColumbo Goes to the Guillotine\nMurder, Smoke and Shadows\nSex and the Married Detective\nGrand Deceptions\nMurder: A Self Portrait\nColumbo Cries Wolf\nAgenda for Murder\nRest in Peace, Mrs. Columbo\nUneasy Lies the Crown\nMurder in Malibu\nColumbo Goes to College\nCaution: Murder Can Be Hazardous to Your Health\nColumbo and the Murder of a Rock Star\nDeath Hits the Jackpot\nNo Time to Die\nA Bird in the Hand...\nIt's All in the Game\nButterfly in Shades of Grey\nUndercover\nStrange Bedfellows\nA Trace of Murder\nAshes to Ashes\nMurder With Too Many Notes\nColumbo Likes the Nightlife";,{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

#Wolfram Language (76 + 561) = 637 bytes

This assumes that the listing of episode titles is stored in the file, "c.txt", consisting of 561 bytes.

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{I~EditDistance~#,#}&/@StringSplit[Import@"c.txt",{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"

#Wolfram Language 1383 bytes

I miscounted the bytes on my earlier entry (using Word's count of characters plus spaces. The present version does not import a file.

EditDistance finds the Levenshtein distance between strings.

f@i_:=Sort[{EditDistance[i,#],#}&/@StringSplit[t="Prescription: Murder\nRansom for a Dead Man\nMurder by the Book\nDeath Lends a Hand\nDead Weight\nSuitable for Framing\nLady in Waiting\nShort Fuse\nBlueprint for Murder\nEtude in Black\nThe Greenhouse Jungle\nThe Most Crucial Game\nDagger of the Mind\nRequiem for a Falling Star\nA Stitch in Crime\nThe Most Dangerous Match\nDouble Shock\nLovely But Lethal\nAny Old Port in a Storm\nCandidate for Crime\nDouble Exposure\nPublish or Perish\nMind Over Mayhem\nSwan Song\nA Friend in Deed\nAn Exercise in Fatality\nNegative Reaction\nBy Dawn's Early Light\nTroubled Waters\nPlayback\nA Deadly State of Mind\nForgotten Lady\nA Case of Immunity\nIdentity Crisis\nA Matter of Honor\nNow You See Him...\nLast Salute to the Commodore\nFade in to Murder\nOld Fashioned Murder\nThe Bye-Bye Sky High IQ Murder Case\nTry and Catch Me\nMurder Under Glass\nMake Me a Perfect Murder\nHow to Dial a Murder\nThe Conspirators\nColumbo Goes to the Guillotine\nMurder, Smoke and Shadows\nSex and the Married Detective\nGrand Deceptions\nMurder: A Self Portrait\nColumbo Cries Wolf\nAgenda for Murder\nRest in Peace, Mrs. Columbo\nUneasy Lies the Crown\nMurder in Malibu\nColumbo Goes to College\nCaution: Murder Can Be Hazardous to Your Health\nColumbo and the Murder of a Rock Star\nDeath Hits the Jackpot\nNo Time to Die\nA Bird in the Hand...\nIt's All in the Game\nButterfly in Shades of Grey\nUndercover\nStrange Bedfellows\nA Trace of Murder\nAshes to Ashes\nMurder With Too Many Notes\nColumbo Likes the Nightlife";,{"\n"}]][[1,2]]

f["Ran*om for a *ead Man"]

"Ransom for a Dead Man"
added 68 characters in body
Source Link
DavidC
  • 25.4k
  • 2
  • 52
  • 105
Loading
deleted 41 characters in body
Source Link
DavidC
  • 25.4k
  • 2
  • 52
  • 105
Loading
Source Link
DavidC
  • 25.4k
  • 2
  • 52
  • 105
Loading