Форум программистов, компьютерный форум, киберфорум
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.96/25: Рейтинг темы: голосов - 25, средняя оценка - 4.96
5 / 5 / 3
Регистрация: 25.07.2016
Сообщений: 182
1

Крайне непопулярный язык Tcl/Tk

26.08.2018, 18:23. Просмотров 5082. Ответов 36
Метки нет (Все метки)

Цитата Сообщение от mik-a-el Посмотреть сообщение
Это крайне непопулярные языки.
Приведу пару приложений для того чтобы можно было немного представить
что собой представляет язык Tcl и его графическая библиотека Tk ...
№1 Перевод из арабских в римские и обратно.
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#Rim_Arab.tcl
source [file join [file dirname [info script]] chisla_rim_arab.tcl]
source [file join [file dirname [info script]] chisla_arab_rim.tcl]
source [file join [file dirname [info script]] Valid_Int.tcl]
source [file join [file dirname [info script]] Valid_Rim.tcl]
 
package require Tk
. config -bg gray75
set w .search
catch {destroy $w}
toplevel $w
wm title $w "Арабские << >> Римские!"
frame  $w.one
label  $w.one.label    -text "Это приложение переводит числа из арабской системы \
                             счисления в римскую и обратно!"
pack   $w.one.label    -side left
 
frame  $w.two
label  $w.two.label           -text " Арабское  число:"
entry  $w.two.entry           -textvar Arab  -fg red   -validate  all  -vcmd {Valid_Int %P}
ttk::button $w.two.button     -text "Вычислить!"  -command {$w.three.entry  insert 0 "[eval {Arab_Rim $Arab}]"}
bind   $w.two.entry     <Return>  {$w.three.entry  insert 0 "[eval {Arab_Rim $Arab}]"}
ttk::button $w.two.button1    -text "Очистить!"   -command {$w.two.entry   delete 0 end}
bind   $w.two.entry     <Delete>  {$w.two.entry  delete  0 end}
 
frame  $w.three
label  $w.three.label         -text " Римское    число:"
entry  $w.three.entry         -textvar Rim   -fg blue  -validate  all  -vcmd {Valid_Rim  %P}         
ttk::button $w.three.button   -text "Вычислить!"  -command {$w.two.entry    insert 0 "[eval {Rim_Arab $Rim }]"}
bind   $w.three.entry   <Return>  {$w.two.entry    insert 0 "[eval {Rim_Arab $Rim }]"}              
ttk::button $w.three.button1  -text "Очистить!"   -command {$w.three.entry delete 0 end}
bind   $w.three.entry   <Delete>  {$w.three.entry delete 0 end}
 
pack   $w.two.label    $w.two.entry    $w.two.button     $w.two.button1    -side left
pack   $w.three.label  $w.three.entry  $w.three.button   $w.three.button1  -side left
pack   $w.one  $w.two  $w.three    -side top
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
#chisla_arab_rim.tcl
proc Arab_Rim {Arab} {
source [file join [file dirname [info script]] data_arab_rim.tcl]
set E 0; set Rim ""
while {0 < $Arab} {
 while {[lindex $arab $E] <= $Arab} {
  append Rim [lindex $rim $E]
  set Arab [expr {$Arab - [lindex $arab $E]}]
      }
      incr E
   }
   return $Rim
}
Python
1
2
3
# data_arab_rim.tcl
set arab {1000 900 500 400 100 90 50 40 10 9 5 4 1}
set rim  {M CM D CD C XC L XL X IX V IV I}
Python
1
2
#Valid_Int.tcl
proc Valid_Int {Arab} {return [expr {[string is integer $Arab] && [expr {$Arab < 4000}]}]}
Python
1
2
3
4
5
6
7
8
#chisla_rim_arab.tcl
proc Rim_Arab {Rim} {
source [file join [file dirname [info script]] data_rim_arab.tcl]
set RimCM [string map {IV IIII IX VIIII XL XXXX XC LXXXX CD CCCC CM DCCCC} $Rim]
set RimN  [split $RimCM {}]
set Qwer 0; foreach P $RimN {set Qwer [expr {$Qwer + $r_a($P)}]}
set Arab $Qwer 
}
Python
1
2
3
#data_rim_arab.tcl
set r_a(I) 1;   set r_a(V) 5;   set r_a(X) 10; set r_a(L) 50
set r_a(C) 100; set r_a(D) 500; set r_a(M) 1000
Python
1
2
#Valid_Rim.tcl
proc Valid_Rim {Rim} {return [regexp {^(M{0,3})(C[MD]|D?C{0,3})(X[CL]|L?X{0,3})(I[XV]|V?I{0,3})$} $Rim]}
Добавлено через 15 минут
№2 Игра "Жизнь"
Python
1
2
3
4
5
6
7
8
9
10
11
12
#Live.tcl
label       .label     -text     "Введите размерность жизненого пространства:" 
entry       .entry     -textvar  razmer        -validate   all     -vcmd  {Valid %P}
ttk::button .button_1  -text     "Вычислить!"  -command    {source [file join [file dirname [info script]] forma.tcl]}
bind        .entry     <Return>                            {source [file join [file dirname [info script]] forma.tcl]}
ttk::button .button_2  -text     "Очистить!"   -command    {.entry delete 0 end}
bind        .entry     <Delete>  {.entry delete 0 end}
pack        .label  .entry  .button_1  .button_2    -side   left
# --------------------------------------------------------------------------------------------------
proc Valid {razmer} {
     return [regexp {^(3{0,1}|4{0,1}|5{0,1}|6{0,1}|7{0,1}|8{0,1}|9{0,1}|10{0,1})$} $razmer]
}
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#forma.tcl
source [file join [file dirname [info script]] tablica.tcl]
source [file join [file dirname [info script]] spisok.tcl]
 
set u [format "%d" $razmer]
set d [expr {1.0 / $u}]
set t [expr {pow($u, 2)}]
set order [Spisok $t]
 
package require Tk
set w .puzzle
catch {destroy $w}
toplevel $w  
set font 04ddd84
label $w.msg  -font  $font  -wraplength  4i  -justify  left  -text  "Жизненное пространство - $u на $u."
pack  $w.msg  -side  top
 
wm title    $w    "Игра \"Жизнь\""
wm iconname $w    "$t - Жизнь"
scrollbar   $w.s
 
if {[tk windowingsystem] eq "aqua"} {set frameSize 360} else {set frameSize 240}
 
frame $w.frame    -width    $frameSize     -height   $frameSize     -borderwidth  2 \
                  -relief   sunken         -bg       [$w.s cget     -troughcolor]        
pack  $w.frame    -side     top            -pady     1c             -padx    1c
 
destroy $w.s
 
tablica $order
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#tablica.tcl
source [file join [file dirname [info script]] pokolenie.tcl]
 
proc tablica {order } {
 global  i u d w t
 for {set i 0} {$i < $t} {incr i} {
 destroy  $w.frame.$i
 set num [lindex  $order $i]
 set xpos($i) [expr {($i%$u)*$d}]
 set ypos($i) [expr {($i/$u)*$d}]
ttk::button  $w.frame.$i   -text  $num        -command   {set order [pokolenie $order]; tablica $order}
place        $w.frame.$i   -relx  $xpos($i)   -rely   $ypos($i)   -relwidth  $d   -relheight  $d
   }
}
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#pokolenie.tcl
proc pokolenie {order} {    
 global   u t
 set Q {lindex $order $f}
 set W {set Xs [expr {$Xs+1}]}
 set E {set order1 [lappend order1 "" ]}
 set R {set order1 [lappend order1 "X"]}
  for {set i 0} {$i < $t} {incr i} {           
          set Xs 0; set q [expr {($i+1)%$u}]
   if {([set f [expr {$i-$u}]]    >= 0              && [eval $Q] == "X" && [eval $W]) |
       ([set f [expr {$i-$u+1}]]  >= 0 &&  $q != 0  && [eval $Q] == "X" && [eval $W]) |  
       ([set f [expr {$i+1}]]     < $t &&  $q != 0  && [eval $Q] == "X" && [eval $W]) |
       ([set f [expr {$i+$u+1}]]  < $t &&  $q != 0  && [eval $Q] == "X" && [eval $W]) |
       ([set f [expr {$i+$u}]]    < $t              && [eval $Q] == "X" && [eval $W]) |
       ([set f [expr {$i+$u-1}]]  < $t &&  $q != 1  && [eval $Q] == "X" && [eval $W]) | 
       ([set f [expr {$i-1}]]     >= 0 &&  $q != 1  && [eval $Q] == "X" && [eval $W]) |
       ([set f [expr {$i-$u-1}]]  >= 0 &&  $q != 1  && [eval $Q] == "X" && [eval $W])} {  
    switch -- $Xs {
     1 {eval $E}
     2 {if {[lindex  $order  $i] == "X"} then {eval $R} else {eval $E}}
     3 {eval $R}
     4 {eval $E}
     5 {eval $E}
     6 {eval $E}
     7 {eval $E}
     8 {eval $E}
}     
      } else {eval $E}
   }
    return $order1
}
Python
1
2
3
4
5
6
7
8
9
#spisok.tcl
proc Spisok {t} {    
 for {set i 0} {$i < $t} {incr i} {        
  set n [expr {round(rand()*1)}] 
   if {$n == 1} then {set order [lappend order "X"]} \
                 else {set order [lappend order ""]}     
   }
   return $order    
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.08.2018, 18:23
Ответы с готовыми решениями:

[TCL] Чем компилировать TCL?
Очень актуальной на настоящий момент для меня является известная программа Coyote, ибо хочу...

Необходим малоизвестный непопулярный стабильный браузер. Ваши варианты.
Доброго времени суток. Задался целью перейти на какой-нибудь малоизвестный, непропиаренный браузер....

TCL, Expect
Как можно одновременно подключиться к нескольким машинам по SSH используя Expect-скрипт. Моя идея...

скрипт announces.tcl
Подскажите пожалуйста извените конечно что не там тему создала бо не знаю где имеется скрипт...

36
Заблокирован
26.08.2018, 20:40 2
Цитата Сообщение от Slenon Посмотреть сообщение
Приведу пару приложений для того чтобы можно было немного представить
что собой представляет язык Tcl и его графическая библиотека Tk ...
Видимо, я немного не в теме, но зачем?
0
5 / 5 / 3
Регистрация: 25.07.2016
Сообщений: 182
27.08.2018, 05:22  [ТС] 3
Затем, что я хочу, чтобы появился подраздел по Tcl/Tk ...

Добавлено через 11 минут
№3 Игра "puzzle".
Python
1
2
3
4
5
6
7
8
9
10
11
12
# start_puzzle_1.tcl
label       .label    -text "Введите размерность пазла:" 
entry       .entry    -textvar a   -validate all   -vcmd {Valid %P}
ttk::button .button1  -text "Вычислить!" -command {source [file join [file dirname [info script]] puzzle_1.tcl]}
bind        .entry <Return>  {source [file join [file dirname [info script]] puzzle_1.tcl]}
ttk::button .button2  -text "Очистить!" -command  {.entry delete 0 end}
bind        .entry <Delete> {.entry delete 0 end}
pack        .label .entry .button1 .button2 -side left
 
proc Valid {a} {
     return [regexp {^(3{0,1}|4{0,1}|5{0,1}|6{0,1}|7{0,1}|8{0,1}|9{0,1}|10{0,1})$} $a]
}
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#puzzle_1.tcl
source [file join [file dirname [info script]] spisok_1.tcl]
source [file join [file dirname [info script]] puzzleSwitch_1.tcl]
package require Tk
 
if {$a == 1} {tk_messageBox  -title "Предупреждение!"  -message "Неправильное значение > a = 1"}
set u [format "%d" $a]
set d [expr {1.0 / $u}]
set t [expr {round(pow($u, 2)) - 1}]
set Spisok [spisok $t]
 
set w .puzzle
catch {destroy $w}
toplevel $w
    
set font #4ddd84
label $w.msg  -font $font  -wraplength 4i  -justify left  -text "Пазлы - $t штук."
pack $w.msg -side top
 
wm title $w "Игра \"Пазлы\""
wm iconname $w "$t - Пазлы"
 
scrollbar $w.s
 
if {[tk windowingsystem] eq "aqua"} {set frameSize 360} else {set frameSize 240}
 
frame $w.frame  -width $frameSize -height $frameSize -borderwidth 2\
                -relief sunken -bg [$w.s cget -troughcolor]
pack  $w.frame  -side top -pady 1c -padx 1c
destroy $w.s
# ----------------------------------------------------------------------
for {set i 0} {$i < $t} {incr i} {
     set num [lindex  $Spisok $i]
     set xpos($num) [expr {($i%$u)*$d}]
     set ypos($num) [expr {($i/$u)*$d}]
ttk::button $w.frame.$num     -text     $num          -command "puzzleSwitch_1 $w $num"
place       $w.frame.$num     -relx     $xpos($num)   -rely $ypos($num) \
                              -relwidth $d            -relheight $d
}
set Q [expr {1.0 - 1.0/$u}]
set xpos(space) $Q; set ypos(space) $Q
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# puzzleSwitch_1.tcl
proc puzzleSwitch_1 {w num} {
    global xpos ypos u
    set E [expr {0.1/$u}]; set R [expr {1.5/$u}]
  if   {(($ypos($num) >= ($ypos(space) - $E)) && ($ypos($num) <= ($ypos(space) + $E)) &&
         ($xpos($num) >= ($xpos(space) - $R)) && ($xpos($num) <= ($xpos(space) + $R))) ||
        (($xpos($num) >= ($xpos(space) - $E)) && ($xpos($num) <= ($xpos(space) + $E)) &&
         ($ypos($num) >= ($ypos(space) - $R)) && ($ypos($num) <= ($ypos(space) + $R)))} {
    set tmp $xpos(space)
    set xpos(space) $xpos($num)
    set xpos($num) $tmp
    set tmp $ypos(space)
    set ypos(space) $ypos($num)
    set ypos($num) $tmp
 
place       $w.frame.$num    -relx $xpos($num)    -rely $ypos($num)
   }
}
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#spisok_1.tcl
proc ldelete_val {list val} {
 set ix [lsearch -exact $list $val]
  if {$ix >= 0} {return [lreplace $list $ix $ix]} else {return $list}
}     
proc spisok {t} {
 set Spisok {0}; set q {llength $Spisok}
  while {[eval $q] <= $t} {
   set k 0; set n [expr {round(rand()*$t)}]
    foreach i $Spisok {if {$i != $n} {incr k}}                    
     if {[eval $q] == $k} {lappend Spisok $n}                         
   }
   ldelete_val $Spisok 0
}
0
Администратор
Эксперт .NET
12881 / 10502 / 4354
Регистрация: 17.03.2014
Сообщений: 21,180
Записей в блоге: 1
27.08.2018, 11:43 4
Цитата Сообщение от Slenon Посмотреть сообщение
Затем, что я хочу, чтобы появился подраздел по Tcl/Tk ...
Публикация примеров тут не поможет. Раздел создается когда есть достаточное количество тем, когда есть люди задающие вопросы и люди дающие ответы.
0
mizannny
27.08.2018, 12:19
  #5

Не по теме:

Цитата Сообщение от Slenon Посмотреть сообщение
я хочу, чтобы появился подраздел по Tcl/Tk ...
Честно говоря, не понятно, как кидание исходников в тему этому способствует.

0
5 / 5 / 3
Регистрация: 25.07.2016
Сообщений: 182
28.08.2018, 00:40  [ТС] 6
Цитата Сообщение от OwenGlendower Посмотреть сообщение
Раздел создается когда есть достаточное количество тем, когда есть люди задающие вопросы и люди дающие ответы.
Нет вопросов и ответов - нет раздела; нет раздела - нет вопросов и ответов ...
Короче я пошёл "жарить" курицу и "варить" яичницу ...
0
Администратор
Эксперт .NET
12881 / 10502 / 4354
Регистрация: 17.03.2014
Сообщений: 21,180
Записей в блоге: 1
28.08.2018, 01:08 7
Цитата Сообщение от Slenon Посмотреть сообщение
Нет вопросов и ответов - нет раздела
Да.

Цитата Сообщение от Slenon Посмотреть сообщение
нет раздела - нет вопросов и ответов
Нет. Пока нет отдельного раздела темы создаются в другом более общем или близком по тематике разделе. Затем когда количество тем становится достаточным - создается раздел и ранее созданные темы переносятся в него.
0
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
10897 / 6813 / 1623
Регистрация: 25.07.2009
Сообщений: 12,515
02.09.2018, 23:17 8
А кстати по-своему интересный язык на самом деле. Но популярным его и в правду трудно назвать.
0
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
15.12.2019, 16:51 9
Есть такая штука Visual Tcl

[TCL] Чем компилировать TCL?

Мне писали, что в качестве первого языка лучше бы выбрал его, а не Python. Не подскажите почему?
0
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
17.12.2019, 10:14 10
Не могу найти, где скачать ActiveTcl 8.4.12. Нужна именно эта версия.
0
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
17.12.2019, 20:36 11
Эта версия нужна для запуска Visual Tcl на Xp. Она нашлась здесь:
https://sourceforge.net/projec... cl/8.4.12/
0
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
10897 / 6813 / 1623
Регистрация: 25.07.2009
Сообщений: 12,515
18.12.2019, 01:53 12
Цитата Сообщение от supmener Посмотреть сообщение
Мне писали, что в качестве первого языка лучше бы выбрал его, а не Python. Не подскажите почему?
Честно говоря, не представляю, чем руководствовался тот, кто Вам это посоветовал, разве-что какими-то сугубо личными соображениями. Python даже не в разы, на несколько порядков легче в изучении, чем скорее всего и объясняется его бешенная популярность, а соответственно и востребованность. Под Python существует огромное количество библиотек на все случаи жизни, есть огромное количество литературы, да и на любом форуме (включая этот) на ваши вопросы найдётся куда больше ответов, чем по TCL. Учите Python, не ошибётесь!
1
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
18.12.2019, 11:36 13
В Tcl привлекла возможность создавать exe и запускать без наличия инсталированной среды. Не знаю, насколько это полно функционирующая возможность, так как в Python такое тоже есть, только человек дал понять, что глючно и может не работать.
0
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
10897 / 6813 / 1623
Регистрация: 25.07.2009
Сообщений: 12,515
18.12.2019, 12:49 14
supmener, и Python, и TCL - интерпретируемые языки, в любом случае нативного exe файла не получите. Если на то пошло, смотрите в сторону IronPython - это реализация Python для .NET. Прекрасно интегрируется в MS Visual Studio, получаете функционал платформы .NET (ныне NETCore) и на выходе exe (опять же не то, чтобы нативный, but who cares?)... Одна беда - IronPython 3 отчаяно тормозит с выходом, но и IronPython 2.7.9 от "оригинального" Python 3 не сильно и отличается. В любом случае это гораздо актуальнее, чем учить практически забытый язык, даже в лучшие свои дни (а это конец прошлого века) не бывший особо популятным.
1
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
18.12.2019, 12:54 15
Цитата Сообщение от easybudda Посмотреть сообщение
получаете функционал платформы .NET (ныне NETCore)
А в это понятие входит программирование ещё на каких языках, кроме C# и F#?
0
Модератор
Эксперт PythonЭксперт JavaЭксперт CЭксперт С++
10897 / 6813 / 1623
Регистрация: 25.07.2009
Сообщений: 12,515
18.12.2019, 13:15 16
Цитата Сообщение от supmener Посмотреть сообщение
А в это понятие входит программирование ещё на каких языках, кроме C# и F#?
Visual Basic .NET Core, куда же мелкомягким без своего любимого детища?
Одно время был C++/CLI, но как-то не задалось.
Может быть, есть привязка и к другим языкам, на MSDN поищите...

Добавлено через 8 минут
Цитата Сообщение от easybudda Посмотреть сообщение
был C++/CLI
Формально и сейчас, наверное, есть, но по сути его изначально стоило назвать С++ on crutches.
1
Эксперт Python
4286 / 3163 / 1029
Регистрация: 28.10.2013
Сообщений: 8,169
18.12.2019, 21:52 17
Цитата Сообщение от supmener Посмотреть сообщение
В Tcl привлекла возможность создавать exe и запускать без наличия инсталированной среды
Все, что умел делать тисиэльный TkWrap, так это запаковывать в exe интерпретатор с минимальным числом предопределенных либ. То есть ни убавить, ни прибавить.
На Python хотя бы можно (путем танцев с с бубном) пробовать любой набор библиотек подключать к архиву pyinstaller'а и т.п.
Да, и это глючно, но ни TCL, ни Python никогда не предназначались для создания однофайловых exe. Потому что для этого есть компилируемые в native code языки.
И к тому же для Python существуют другие человеческие пути удобного распространения скриптов + интерпретатор + библиотеки, нежели запихивание всего в один exe-шник.
1
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
18.12.2019, 22:26 18
Цитата Сообщение от Garry Galler Посмотреть сообщение
для Python существуют другие человеческие пути удобного распространения скриптов + интерпретатор + библиотеки
Что за варианты имеете в виду?

Добавлено через 2 минуты
Цитата Сообщение от easybudda Посмотреть сообщение
функционал платформы .NET (ныне NETCore)
Остается открытым вопрос, стоит ли стремиться использовать NET для разработки ( Java, Go, NET(C#,F#) vs другие языки ) ?

Добавлено через 1 минуту
Цитата Сообщение от easybudda Посмотреть сообщение
(ныне NETCore) и на выходе exe (опять же не то, чтобы нативный)...
Что значит "не то, чтобы нативный"?
0
Эксперт Python
4286 / 3163 / 1029
Регистрация: 28.10.2013
Сообщений: 8,169
18.12.2019, 22:30 19
Цитата Сообщение от supmener Посмотреть сообщение
Что за варианты имеете в виду?
Использование embeddable сборок Python с офф.сайта, которые можно передавать на другой компьютер вместе со скриптом.
Использование стандартных инсталляторов программ типа InnoSetup.

Добавлено через 2 минуты
Цитата Сообщение от supmener Посмотреть сообщение
Что значит "не то, чтобы нативный"?
Байткод виртуальной NET машины.
.NET приложения не компилируются в машинный код (за исключением обработки ngen-ом, но этот код нельзя извлечь и использовать как программу).
1
114 / 62 / 9
Регистрация: 26.06.2013
Сообщений: 2,999
18.12.2019, 22:43 20
Цитата Сообщение от Garry Galler Посмотреть сообщение
типа InnoSetup
Вы имеете в виду embeddable сборку в него засунуть?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2019, 22:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код в TCL
Помогите перевести в язык TCL или есть трансляторы? use strict; use warnings; my $f1 =...

Телевизор TCL и китайская антенна
Всем доброго времени суток. Когда то давно купили телевизор TCL за 25$ б/у. Старого типа, ЭЛТ....

Tcl/Tk via Common Lisp и LTK
Можно подробнее? Во-первых, интерес есть, и по мере наличия времени я бы присоединился. Ну и...

Ryzen 5 1600x Tdie и Tcl
Процессор в простое греется до ~55 градусов. В стресс тесте Аида до 85 градусов. Почему такая...

Ремонт телевизора TCL. Кадровая
Привет всем! Прошу помощи понять проблему телевизора TCL (см.схему). Проблема началась ни с...

Лисп против TCL, или наоборот?
Нет идеальных языков, так как даже на солнце бывают пятна. Часто, тот или иной иснструмент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.