HiAsm
HiAsm
Вверх ↑
Форумы"Игра в слова"Балда ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 3514
Рейтинг: 184
#1: 2009-01-01 17:55:25 ЛС | профиль | цитата
Есть идея создать некий "чит-код" для игры "балда".
Программа будет в ответ на изменение букв в клетках искать и подбирать слова из словаря.
Чувствую, один я не справлюсь, может есть у кого энтузиазм заняться?
карма: 0
Ссылка
1
Голосовали:EcsTasY
Ответов: 8928
Рейтинг: 823
#2: 2009-01-01 18:39:55 ЛС | профиль | цитата
Астрамак, в подобные игры с компьютером играть не интересно, он всегда победит.
Алгоритм: слова в словаре сортированы по длине, перебирать с максимального, останавливаясь при первом совпадении, деревья возможных путей можно составить заранее (для 5*5=25 по ~120 веточек), после переборки всех путей, максимальное слово будет найдено. А вот красивое оформление посложнее
карма: 19

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#3: 2009-01-01 22:07:07 ЛС | профиль | цитата
В том то и фишка, что не с компьютером
Играю с человеком, а программа думает за меня 8)
Т.е. сам ставлю буковки в клетки, а компьютер, исходя их ситуации находит мне по алгоритму длинное слово.
Дальше 
Add(ChildPanel,3186365,259,77){
}
BEGIN_SDK
  Add(EditMulti,2338481,21,21)
  {
   Width=489
   Height=347
  }
  Add(Panel,3105320,35,105)
  {
   Left=55
   Top=30
   Width=221
   Height=220
   BorderWidth=0
   BevelInner=0
   BevelWidth=0
  }
  Add(ChildPanelEx,8599923,119,77)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
     Width=552
     Height=480
    }
    Add(Panel,3732445,98,294)
    {
     Left=10
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
     Point(onDblClick)
     link(onDblClick,4712234:doData,[])
    }
    Add(Memory,15345558,245,147)
    {
     Default=Integer(11)
    }
    Add(InfoTip,4521223,217,126)
    {
     Info=#2:xy|
     Width=85
     Height=74
    }
    Add(Edit,9592468,245,287)
    {
     Left=3
     Top=3
     Width=29
     Height=29
     Font=[Trebuchet MS,18,0,0,204]
     Enabled=1
     Text="2"
     Alignment=2
     Point(doEnabled)
     link(onEnter,1663376:doEvent1,[])
    }
    Add(DoData,4712234,175,301)
    {
     Data=Integer(1)
     link(onEventData,6515219:doWork2,[])
    }
    Add(DoData,1504171,175,259)
    {
     Data=Integer(0)
     link(onEventData,6515219:doWork3,[(228,265)])
    }
    Add(HubEx,6515219,224,294)
    {
     link(onEvent,9592468:doEnabled,[])
    }
    Add(Hub,1663376,287,294)
    {
     link(onEvent1,1504171:doData,[(331,300)(331,246)(157,246)(157,265)])
     link(onEvent2,9592468:doText2,[(338,307)(338,268)(233,268)(233,300)])
    }
  END_SDK
  Add(ChildPanelEx,4213815,161,77)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8878461,245,77)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,1479282,203,77)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,15563266,287,77)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,4279746,287,119)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,4894190,203,119)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,11201254,245,119)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8465477,161,119)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,10398994,119,119)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,11121328,119,203)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8742283,161,203)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,5820059,245,203)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,788555,203,203)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,1109846,287,203)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12846498,287,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8759607,203,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,13930706,245,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,6205877,161,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,5585841,119,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12934285,119,245)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,3510089,161,245)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12952032,245,245)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8030586,203,245)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8123729,287,245)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
END_SDK
дело пока не идет. да и не надо пока. уже тут надо подумать над оптимальным путем (что бы потом не ждать по полу часу решения)..
------------ Дoбавленo:

Лес рук
------------ Дoбавленo:

Ну вот.... кольцевание =(
Add(ChildPanel,3186365,259,91){
 link(onEvent1,7741229:doAdd,[])
}
BEGIN_SDK
  Add(EditMulti,2338481,21,21)
  {
   EventCount=1
   Width=853
   Height=487
  }
  Add(Panel,3105320,35,105)
  {
   Left=55
   Top=30
   Width=221
   Height=220
   BorderWidth=0
   BevelInner=0
   BevelWidth=0
  }
  Add(ChildPanelEx,8599923,140,84)
  {
   link(onFString,16326170:In,[])
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
     WorkCount=#9:doCompare|
     EventCount=#9:onFString|
     Width=552
     Height=480
     link(doCompare,4394663:doCompare,[(94,27)(94,300)])
    }
    Add(Panel,3732445,112,210)
    {
     Left=10
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
     Point(onDblClick)
     link(onDblClick,14643420:doOn,[])
    }
    Add(Memory,15345558,329,105)
    {
     Default=Integer(11)
    }
    Add(InfoTip,4521223,301,84)
    {
     Info=#2:11|
     Width=85
     Height=74
    }
    Add(Edit,9592468,245,189)
    {
     Left=3
     Top=3
     Width=29
     Height=29
     Font=[Trebuchet MS,18,0,0,204]
     Enabled=1
     Text="-"
     Alignment=2
     Point(doEnabled)
     link(onChange,14643420:doReset,[(288,195)(288,181)(170,181)(170,216)])
    }
    Add(FormatStr,7262430,329,210)
    {
     Mask="%1-%2"
     link(onFString,13075965:onFString,[(460,216)(460,27)])
     link(Str1,15345558:Value,[])
     link(Str2,15788327:Data2,[(342,198)(293,198)(293,275)(258,275)])
    }
    Add(Switch,14643420,182,203)
    {
     DataOn=Integer(1)
     DataOff=Integer(0)
     Point(doOn)
     Point(onOff)
     link(onSwitch,9592468:doEnabled,[])
     link(onOff,662075:doWork2,[])
    }
    Add(GetData,15788327,245,231)
    {
     link(Data,9592468:Text,[])
    }
    Add(If_else,4394663,245,294)
    {
     Op2=String(-)
     link(onFalse,662075:doWork3,[(305,307)])
     link(Op1,15788327:Data1,[])
    }
    Add(HubEx,662075,301,203)
    {
     link(onEvent,7262430:doString,[])
    }
  END_SDK
  Add(ChildPanelEx,4213815,266,84)
  {
   link(onFString,9102779:In,[])
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
     WorkCount=#9:doCompare|
     EventCount=#9:onFString|
     Width=517
     Height=340
     link(doCompare,4394663:doCompare,[(119,27)(119,300)])
    }
    Add(Panel,3732445,42,210)
    {
     Left=50
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
     Point(onDblClick)
     link(onDblClick,16084639:doOn,[])
    }
    Add(Memory,14577069,308,105)
    {
     Default=Integer(12)
    }
    Add(InfoTip,13403618,280,84)
    {
     Info=#2:12|
     Width=85
     Height=74
    }
    Add(Edit,10657138,224,189)
    {
     Left=3
     Top=3
     Width=29
     Height=29
     Font=[Trebuchet MS,18,0,0,204]
     Enabled=1
     Text="-"
     Alignment=2
     Point(doEnabled)
     link(onChange,16084639:doReset,[(267,195)(267,181)(149,181)(149,216)])
    }
    Add(FormatStr,10173395,308,210)
    {
     Mask="%1-%2"
     link(onFString,13075965:onFString,[(460,216)(460,27)])
     link(Str1,14577069:Value,[])
     link(Str2,15788327:Data2,[(321,198)(272,198)(272,275)(237,275)])
    }
    Add(Switch,16084639,161,203)
    {
     DataOn=Integer(1)
     DataOff=Integer(0)
     Point(doOn)
     Point(onOff)
     link(onSwitch,10657138:doEnabled,[])
     link(onOff,662075:doWork2,[])
    }
    Add(GetData,15788327,224,231)
    {
     link(Data,10657138:Text,[])
    }
    Add(If_else,4394663,224,294)
    {
     Op2=String(-)
     link(onFalse,662075:doWork3,[(284,307)])
     link(Op1,15788327:Data1,[])
    }
    Add(HubEx,662075,280,203)
    {
     link(onEvent,10173395:doString,[])
    }
  END_SDK
  Add(ChildPanelEx,8878461,441,84)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,1479282,371,84)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,15563266,504,84)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=10
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,4279746,504,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,4894190,371,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,11201254,441,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8465477,266,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,10398994,140,161)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=50
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,11121328,140,287)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8742283,266,287)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,5820059,441,287)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,788555,371,287)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,1109846,504,287)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=130
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12846498,504,224)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8759607,371,224)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,13930706,441,224)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,6205877,266,224)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,5585841,140,224)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=90
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12934285,140,350)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=10
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,3510089,266,350)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=50
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,12952032,441,350)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=130
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8030586,371,350)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=90
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(ChildPanelEx,8123729,504,350)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,13075965,21,21)
    {
    }
    Add(Panel,3732445,105,70)
    {
     Left=170
     Top=170
     Width=35
     Height=35
     Color=12632256
     BevelInner=1
     Alignment=2
    }
  END_SDK
  Add(MultiElement,948159,721,189)
  {
   link(onEvent1,9319604:In,[])
   link(onEvent2,3244815:In,[])
   link(onEvent3,2338481:onEvent1,[(793,209)(793,27)])
  }
  BEGIN_SDK
    Add(EditMulti,16357405,21,21)
    {
     EventCount=3
     WorkCount=1
     Width=643
     Height=438
     link(doWork1,8337971:doSplit,[(179,27)(179,132)])
    }
    Add(MultiElementEx,8337971,231,126)
    {
     link(onEventData,2952503:doEvent1,[])
    }
    BEGIN_SDK
      Add(EditMultiEx,10494472,21,21)
      {
       WorkCount=#7:doSplit|
       EventCount=#11:onEventData|
       VarCount=#5:Right|
       Width=265
       link(doSplit,3906331:doSplit,[(35,27)(35,118)])
       link(Right,3906331:Right,[(27,183)(62,183)])
      }
      Add(StrPart,3906331,49,112)
      {
       Char="-"
       Point(Left)
       Point(Right)
       link(onSplit,15736526:doSearch,[])
      }
      Add(StrList,1857281,105,49)
      {
       Strings=#13:|11=,12,,21,||17:|12=,11,,13,,22,||17:|13=,12,,14,,23,||17:|14=,13,,15,,24,||13:|15=,14,,25,||17:|21=,11,,22,,31,||21:|22=,12,,21,,23,,32,||21:|23=,13,,22,,24,,33,||21:|24=,14,,23,,25,,34,||17:|25=,15,,24,,35,||
      }
      Add(BlockFind,15736526,105,112)
      {
       IncludeBlock=1
       StartBlock="|"
       EndBlock="|"
       link(onSearch,6026741:doSplit,[])
       link(Text,1857281:Text,[])
      }
      Add(StrPart,6026741,161,112)
      {
       Char="="
       Point(Left)
       Point(Right)
       link(onSplit,3194009:In,[])
      }
      Add(If_else,156137,154,168)
      {
       link(onTrue,12544464:doData,[])
       link(Op1,3906331:Left,[(160,156)(55,156)])
       link(Op2,6026741:Left,[])
      }
      Add(DoData,12544464,203,168)
      {
       link(onEventData,10494472:onEventData,[(264,174)(264,27)])
       link(Data,6026741:Right,[(209,156)(174,156)])
      }
      Add(LineBreak,11207703,91,168)
      {
       link(Out,156137:doCompare,[])
       Primary=[3194009,126,-56]
      }
    END_SDK
    Add(InfoTip,15805358,196,98)
    {
     Info=#17:opr. zavisimostey|
     Width=99
     Height=81
    }
    Add(BlockFind,11035482,385,126)
    {
     IncludeBlock=1
     StartBlock=","
     EndBlock=","
     link(onSearch,12739771:doEvent,[])
    }
    Add(IndexToChanel,12739771,483,126)
    {
     Count=56
     link(onEvent12,12177037:In,[])
     link(onEvent13,14181843:In,[])
    }
    Add(LineBreak,9007747,595,21)
    {
     Caption="11"
     link(Out,16357405:onEvent1,[])
     Primary=[12177037,-56,182]
    }
    Add(LineBreak,8844283,560,28)
    {
     Caption="12"
     link(Out,16357405:onEvent2,[])
     Primary=[14181843,14,182]
    }
    Add(Hub,2952503,336,126)
    {
     link(onEvent1,11035482:doSearch,[])
     link(onEvent2,9325799:doData,[(380,139)(380,171)(205,171)(205,202)])
    }
    Add(DoData,9325799,231,196)
    {
     link(onEventData,16357405:onEvent3,[(603,202)(603,41)])
     link(Data,8337971:Right,[])
    }
  END_SDK
  Add(Hub,4453869,665,189)
  {
   InCount=2
   OutCount=1
   link(onEvent1,948159:doWork1,[])
  }
  Add(LineBreak,7217506,581,189)
  {
   Caption="11"
   link(Out,4453869:doEvent1,[])
   Primary=[16326170,-399,-105]
  }
  Add(LineBreak,10948411,616,196)
  {
   Caption="12"
   link(Out,4453869:doEvent2,[])
   Primary=[9102779,-308,-112]
  }
  Add(LineBreak,10583372,98,84)
  {
   Caption="11"
   link(Out,8599923:doCompare,[])
   Primary=[9319604,679,105]
  }
  Add(LineBreak,15673731,224,84)
  {
   Caption="12"
   link(Out,4213815:doCompare,[])
   Primary=[3244815,595,112]
  }
END_SDK
Add(ListBox,7741229,336,91)
{
 Left=290
 Top=40
 Width=95
 Height=195
 AddType=1
}
карма: 0
Ссылка
0
Ответов: 8928
Рейтинг: 823
#4: 2009-01-02 00:10:51 ЛС | профиль | цитата
Астрамак, внешний вид: code_11153.txt
карма: 19

1
файлы: 1code_11153.txt [3.7KB] [208]
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#5: 2009-01-02 00:35:18 ЛС | профиль | цитата
Хм.. а как в данном случае опрашивать соседние клеточки, есть ли в них буквы? (как в моем примере)
карма: 0
Ссылка
0
Ответов: 8928
Рейтинг: 823
#6: 2009-01-02 10:56:18 ЛС | профиль | цитата
Астрамак, точки ##Select и Cap (от Caption), вообще-то их опрашивать не надо, надо хранить буковки отдельно в более удобном виде, а панель только для индикации
карма: 19

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#7: 2009-01-02 11:41:33 ЛС | профиль | цитата
Зачем их хранить?
Нужно определять змейку напрвлений, в которых идти, иначе получится много слов с пробелами, или, что ещё хуже - без них. Т.е. будут браться не соседние буквы...
------------ Дoбавленo:

В смысле - нужно хрантиь конечно только нужно ещё и выяснять - пустая она или нет...
надо подумать
карма: 0
Ссылка
0
Ответов: 8928
Рейтинг: 823
#8: 2009-01-02 15:42:22 ЛС | профиль | цитата
Астрамак, в файлообмене выложил все пути (змейку напрвлений) для 5*5 до 11 буковок включительно (когда скачаешь сообщи, удалю - за 200 Кб). Если хочешь, посчитаю до максимума, правда 11-буквенных путей почти 43000, 12-ти и 13-ти будет около по 80000, далее с уменьшением
Надо все клеточки обозначить строковыми переменными со значением равным содержимому, пустые="#", путь=сцепить все переменные, рассматривать те, где имеется только один символ "#" и сравнивать по маске со словарём до первого совпадения (и словарь и пути должны начинаться с максимально длинных слов). Квалификацию легко регулировать ограничивая максимальную длину пути

карма: 19

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#9: 2009-01-02 17:40:34 ЛС | профиль | цитата
Скачал...
------------ Дoбавленo:

проблема номер один: время. это же офигеть сколько времени нужно для сравнения неопределенного количества слов со словарем
карма: 0
Ссылка
0
Ответов: 8928
Рейтинг: 823
#10: 2009-01-02 17:43:05 ЛС | профиль | цитата
Астрамак, ну, блин, никак не могу выдавить из головы эту Балду
Паралельно со строковыми переменными массив численных: гласные = 0, согласные = 1; при анализе пути считать в нём суммы из 3-х подряд значений, если =0 (три гласные подряд), путь не проверять, 5 значений=5 (пять согласных подряд) - тоже, хотя в русском языке есть и 6 согласных подряд
Для разрядки:
У меня богатый словарный запас, в нем присутствуют слова "оксюморон", "клепсидра", "перст указующий" и даже "ибо".
Но некоторые мысли я никак не могу выразить словами.
Хочется просто взять черенок от лопаты и отп@здить всех.


карма: 19

1
Голосовали:Валерий
Ответов: 3514
Рейтинг: 184
#11: 2009-01-02 17:58:13 ЛС | профиль | цитата
Тааак..
------------ Дoбавленo:

Я сейчас попытаюсь что-либо вразумительное склепать
------------ Дoбавленo:

в файлообмене выложил все пути

Ха-ха. А разве нам не последовательность ИНДЕКСОВ нужна?
карма: 0
Ссылка
0
Ответов: 8928
Рейтинг: 823
#12: 2009-01-02 18:16:34 ЛС | профиль | цитата
Астрамак, "Хоть горшком назови, только в печку не ставь!", что путь, что змейка напрвлений, что дерево или последовательность индексов означают в данном случае перебор всех возможных вариантов.
карма: 19

1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#13: 2009-01-02 18:23:07 ЛС | профиль | цитата
Леонид, а ты бы не мог сгенерировать такую же последовательность индексов?
карма: 0
Ссылка
0
Ответов: 1397
Рейтинг: 50
#14: 2009-01-02 18:34:14 ЛС | профиль | цитата
Блин хочу помочь, но ни чего в голову не приходит.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
Голосовали:Астрамак
Ответов: 3514
Рейтинг: 184
#15: 2009-01-02 18:45:18 ЛС | профиль | цитата
А как ты генерировал те пути? Схемку можешь выложить?
------------ Дoбавленo:

Ой. Глюкануло меня)
------------ Дoбавленo:

Ой. Глюкануло меня)
карма: 0
Ссылка
0
Форумы"Игра в слова"Балда ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика