All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars
 perplexus dot info

 A scrambled BEDLAM (Posted on 2017-09-29)
Solve:

AID*LMB = "an anagram of BEDLAM"

Rem: It's none of (ambled, lambed, balmed, beldam)- it is another word of 6 distinct letters, I standing for the highest digit.

Bonus question: Anything special about the product?

 No Solution Yet Submitted by Ady TZIDON No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
 with computer assistance | Comment 1 of 2
Dim crlf\$

Form1.Visible = True

Text1.Text = ""
crlf = Chr\$(13) + Chr\$(10)

s\$ = "0123456789": h\$ = s
Do
bedlam\$ = Left(s, 6)
good = 1
For i = 1 To 6
If Mid(s, 7, 1) < Mid(s, i, 1) Then good = 0: Exit For
Next
If Mid(s, 8, 1) > Mid(s, 9, 1) Or Mid(s, 9, 1) > Mid(s, 10, 1) Then good = 0
If good Then
aid = 100 * Val(Mid(s, 5, 1)) + 10 * Val(Mid(s, 7, 1)) + Val(Mid(s, 3, 1))
lmb = 100 * Val(Mid(s, 4, 1)) + 10 * Val(Mid(s, 6, 1)) + Val(Mid(s, 1, 1))
If aid > 99 And lmb > 99 Then
If aid * lmb > 99999 Then
prod\$ = LTrim(Str(aid * lmb))
For i = 1 To Len(prod)
If InStr(bedlam, Mid(prod, i, 1)) = 0 Then good = 0: Exit For
If InStr(prod, Mid(prod, i, 1)) < i Then good = 0: Exit For
Next
If good Then
Text1.Text = Text1.Text & "bedlami" & crlf
Text1.Text = Text1.Text & bedlam & Mid(s, 7, 1) & "    " & aid & "    " & lmb & "    " & prod & "      "
For i = 1 To Len(prod)
ix = InStr(bedlam, Mid(prod, i, 1))
Text1.Text = Text1.Text & Mid("bedlam", ix, 1)
Next
Text1.Text = Text1.Text & crlf & crlf
End If
End If
End If
End If
DoEvents
permute s
Loop Until s = h

Text1.Text = Text1.Text & crlf & " done"

End Sub

Rather than include an isWord coding, I just looked for an English word in the output:

`bedlami0214539    591    430    254130      ealdmbbedlami0235419    493    510    251430      elmadbbedlami0237158    183    750    137250      adlembbedlami0248379    394    870    342780      ademlbbedlami0281769    798    160    127680      leamdbbedlami0283619    698    310    216380      emaldbbedlami0284519    598    410    245180      elamdbbedlami0312849    891    240    213840      ldeambbedlami0324578    582    470    273540      dmealbbedlami0348219    294    810    238140      aelmdbbedlami0367148    186    740    137640      aeldmbbedlami0372519    597    210    125370      mlaedbbedlami0415239    291    530    154230      dleambbedlami0432519    593    210    124530      mleadbbedlami0583419    498    310    154380      mealdbbedlami0614258    281    450    126450      daelmbbedlami0623417    472    310    146320      maeldbbedlami0736218    283    610    172630      mealdbbedlami0816249    291    640    186240      delambbedlami0823519    592    310    183520      meladbbedlami0834769    793    460    364780      dmlaebbedlami0837469    493    760    374680      dlamebbedlami1234567    573    461    264153      emlbadbedlami1246389    394    681    268314      elmabdbedlami1263749    796    341    271436      eabmldbedlami1543627    674    321    216354      mbaledbedlami1568279    296    871    257816      aemlbdbedlami1574289    297    481    142857      blamed               *** this is a word ***bedlami1635428    483    521    251643      mlbeadbedlami1765248    286    541    154726      blmeadbedlami1845639    694    531    368514      maelbdbedlami1865429    496    521    258416      mleabdbedlami2105368    380    562    213560      bealmdbedlami2301859    890    152    135280      lembadbedlami2365849    896    542    485632      maldebbedlami2367458    486    752    365472      edmalbbedlami2416708    781    602    470162      eamdlbbedlami2503416    460    312    143520      malebdbedlami2503689    690    382    263580      balemdbedlami2536478    483    672    324576      dbaemlbedlami2605478    480    572    274560      bmaledbedlami2806179    190    672    127680      abmledbedlami2836159    193    652    125836      abmedlbedlami2874619    697    412    287164      bedmalbedlami3167289    296    783    231768      abeldmbedlami3204517    570    413    235410      ebalmdbedlami3402518    580    213    123540      mlbaedbedlami3507429    490    723    354270      beamldbedlami3526149    192    643    123456      adbmelbedlami3542617    674    213    143562      mdbealbedlami3658149    195    843    164385      aembldbedlami3726159    192    653    125376      admbelbedlami3857109    195    703    137085      ablmedbedlami3857209    295    703    207385      amlbedbedlami4012569    591    264    156024      damelbbedlami4058329    395    824    325480      amdblebedlami4287569    598    764    456872      bamdlebedlami4367809    896    704    630784      demlabbedlami4521789    792    184    145728      lbeadmbedlami4578219    297    814    241758      abmdelbedlami4612509    591    204    120564      dlmaebbedlami5027438    482    735    354270      mbadlebedlami5134269    293    465    136245      edmalbbedlami5208479    490    875    428750      aelmbdbedlami5401869    890    165    146850      lemabdbedlami5637128    183    725    132675      admelbbedlami5708319    390    815    317850      amelbdbedlami5712468    481    265    127465      dleambbedlami5812639    691    235    162385      dalmebbedlami5834769    793    465    368745      dmealbbedlami5837149    193    745    143785      amdlebbedlami6183429    498    326    162348      ebmladbedlami6315248    281    546    153426      dlemabbedlami6382719    798    216    172368      malebdbedlami6547209    294    706    207564      amlebdbedlami7253819    895    317    283715      ealbmdbedlami8034529    593    428    253804      madbelbedlami8237469    493    768    378624      dlbmeabedlami8261759    796    158    125768      lemadb`

where I've manually marked the line with a real word:

`bedlami    aid     lmb     blamed1574289    297  *  481  =  142857      `

I don't notice anything special about the product.

 Posted by Charlie on 2017-09-29 10:42:53

 Search: Search body:
Forums (0)