int Akk( int a, int b )
{
    if( b == 0 )
        return Akk(a - 1, 1);
    else if( a == 0 )
        return b + 1;
    else
        return Akk(a - 1, Akk(a, b - 1));
}

: -ack ( y x -- n )
   ?dup if
     swap ?dup
      if
         1- over recurse swap 1- recurse
      else
         1- 1 swap recurse
      then
   else
      1+
   then ;

(define (ack m n)
    (cond ((= m 0) (+ n 1))
          ((= n 0) (ack (- m 1) 1))
      (true    (ack (- m 1) (ack m (- n 1))))))

def Akk(a : int, b : int)
{
  |(_, 0) => Akk(a - 1, 1)
  |(0, _) => b + 1
  |(_, _) => Akk(a - 1, Akk(a, b - 1))
}

public partial class EditPersonForm : BizEntityForm
{
    public EditPersonForm(Person person)
    {
        InitializeComponent();
        binder.Object = person;
    }
}

Вот tcl'у тоже не нужны никакие подпорки чтобы строить очень даже компонентный GUI, и при том делать это проще чем в C#,

import module
module.run()

IT>Можно бы и это сравнить, но лень

АХ>>C++ я думаю, поймут все .

D> Пролог забыл Попробуй.

ack(0,N,Val) :- Val is N + 1.
ack(M,0,Val) :- M > 0, M1 is M - 1, ack(M1,1,Val).
ack(M,N,Val) :- M > 0, N > 0, M1 is M - 1, N1 is N -1,
        ack(M, N1, Val1), ack(M1, Val1, Val).

FR>>import module
FR>>module.run()
FR>>

import person_module

binder.Object = person;

И не надо никакой привязки к редактируемому объекту. Круто!

И вообще если уж охота было сравнивать Nemerle с другими языками в области метапрограммирования, то идеальный кандидат никак ни C++, по моему это Forth.

VD>>А кто тебе, кстати, такое сказал? Может через 12 лет ты будешь все рассказывать, что сразу увидел в Немерле божью искру, а разные Вольфхаунты тебе мозги пудрили.

FR>

FR>Ты бы спроcил меня двенадцать лет назад про форт, да я тогда был готов за него всех в землю закопать

module.run(person)

file_name = asksaveasfilename(filetypes = [("levels", "*.lev")], initialfile = def_name)

Языки программирования, созданные специально для
опеределенных применений, таких как робототехника,
производственный контроль, статистика и т.д., известны как
"проблемно-ориентированные". Форт — это программные средства
для `создания` проблемно-ориентированных языков. (Последняя
фраза — быть может, самое краткое из возможных описаний Форта.)
На самом деле Вам не стоит писать каких-либо серьезных
задач на Форте; как язык, он просто недостаточно мощен. Вам
`следует` писать на Форте свои собственные языки (лексиконы)
для моделирования Вашего понимания проблемы, на которых Вы
можете элегантно описать ее решение.

Thinking FORTH
A Language and Philosophy for Solving Problems

Englewood Cliffs, N.J., Prentice-Hall, Inc., 1984

# функция валидации
proc test {val} {
    tk_messageBox -message $val
    return 1
}

# toplevel окно. не обязательно.
set w {}

# фрейм с информацией о человеке
set info $w.info
# пакуем сверху, растягиваем по горизонтали
pack [frame $info -padx 2 -pady 2] -side top -fill x 

#растягиваем 2-й столбец на всю длину
grid columnconfigure $info 1 -weight 1
#вставляем нужные поля
foreach row {{n1 "First Name"} {n2 "Middle Name"} {n3 "Last Name"}} {
#для каждого entry можно прибиндить переменную, которая будет изменяться в соответствии с вводом
    grid [label $info.l[lindex $row 0] -text [lindex $row 1] -anchor w] [entry $info.[lindex $row 0] -text [lindex $row 1]] -sticky we
}

# определяем функцию валидации для 2-го поля
$info.n2 config -validate key -vcmd {test %P}

# добавляем радиобуттон
set radio $w.radio
pack [labelframe $radio -text "Gender" -pady 2 -padx 2] -side top
foreach item {Female Male Unknown Other} {
    radiobutton $radio.the$item -text $item -variable gender -relief flat -anchor w -value $item
    pack $radio.the$item -side top -fill x
}

# снизу добавляем фрейм с кнопками
pack [frame $w.action -padx 10 -pady 10] -side bottom -fill x
pack [button $w.action.save -text Save -width 10] -side left
pack [button $w.action.cancel -text Cancel -width 10 -command exit] -side right

IT>

NB>>pack [frame $info -padx 2 -pady 2] -side top -fill x 
NB>>pack [frame $w.action -padx 10 -pady 10] -side bottom -fill x
NB>>

IT>Ну вот, в таком птичьем языке разобрался, а с простейшими тегами форматирования нет

walk $player dx dy
hit $player $enemy
...

IT>binder.Object = person;
IT>

IT>Всё что она делает, инициализирует форму переданным объектом. После твоих заявлений я ожидал чего-то подобного. Но видимо не судьба

set form [editPerson $object]

# <s>------------------------------------------------------------------</s>
# EXAMPLE: appointment schedule widget
# <s>------------------------------------------------------------------</s>
# Effective Tcl/Tk Programming
# Mark Harrison, DSC Communications Corp.
# Michael McLennan, Bell Labs Innovations for Lucent Technologies
# Addison-Wesley Professional Computing Series
# ======================================================================
# Copyright © 1996–1997 Lucent Technologies Inc. and Mark Harrison
# ======================================================================

#  USAGE:  appointment_create <win>
#
#  Creates one page in an appointment book.  This includes a text
#  widget with some special tags and bindings, and a scrollbar.
#  Information is loaded into the page via appointment_load.
# ----------------------------------------------------------------------
proc appointment_create {win} {
   frame $win -class Appointment

   scrollbar $win.sbar -command "$win.text yview"
   pack $win.sbar -side right -fill y

    #Тут создаётся текстовый виджет (аналог RichTextEdit)
    # с вертикальным скролбаром с двумя колонками: 
    # одна 2 сантиметра от левого края и с 
    # правым выравниванием, другая - 2,4 см с левым.
    #
   text $win.text -background white -wrap word \
       -cursor left_ptr -tabs {2c right 2.4c left} \
       -yscrollcommand "$win.sbar set"
   pack $win.text -side left -expand yes -fill both

   #
   # Set up tags for the various text styles...
   #
     # Тэги - это нечто вроде стилей
     # Они имеют ряд свойст, которые исменяют
     # как внешний вид так и поведение элементов,
     # к которым эти теги привязаны. То есть,
     # изменени некого визуального атрибута в тэге
     # изменяет внешний вид всех элементов к которым
     # этот тег привязан. К одному элементу можно
     # привязывать много тегов.
     #
     # Тут конфигурируются теги title, date, hour, 
     # comment, stripe, space.
     # 
     # Строчка 'option get $win titleFont Font' это
     # получение значений из внешних конфигов.
     # На 'X' это родной механизм, по виндами - эмуляция
     
   $win.text tag configure title \
       -font [option get $win titleFont Font]

   $win.text tag configure date \
       -font [option get $win dateFont Font]

   $win.text tag configure hour \
       -font [option get $win hourFont Font]

   $win.text tag configure comment \
       -lmargin1 2.4c -lmargin2 2.4c \
       -font [option get $win commentFont Font]

   $win.text tag configure stripe \
       -background [option get $win stripeBackground Background] \
       -foreground [option get $win stripeForeground Foreground]

   $win.text tag configure space -spacing1 5

   #
   # Set up bindings to handle appointment editing...
   #
   set btags [bindtags $win.text]
   set i [lsearch $btags Text]
   if {$i >= 0} {
       set btags [lreplace $btags $i $i]
   }
   bindtags $win.text $btags

    #Тут ничего необычного - обработка событий клавиатуры...
   bind $win.text <KeyPress> "appointment_insert $win %W %A"
   bind $win.text <Control-KeyPress-h> "appointment_backspace $win %W"
   bind $win.text <KeyPress-BackSpace> "appointment_backspace $win %W"
   bind $win.text <KeyPress-Delete> "appointment_delete $win %W"
   bind $win.text <KeyPress-Tab> "appointment_next $win %W; break"
   bind $win.text <KeyPress-Down> "appointment_next $win %W; break"
   bind $win.text <KeyPress-Up> "appointment_prev $win %W; break"
   bind $win.text <KeyPress-Left> "appointment_left $win %W; break"
   bind $win.text <KeyPress-Right> "appointment_right $win %W; break"

   #
   # Bind to the "comment" fields to let the user position
   # the cursor...
   #
    #... и нажатий мыши
   $win.text tag bind comment <ButtonPress-1> "
       focus %W
       %W mark set insert @%x,%y
   "

   return $win
}

# ----------------------------------------------------------------------
#  USAGE:  appointment_load_slot <win> <slot> <appmt> <allSlots>
#
#  Adds a single line to the appointment book <win>.  Each line
#  represents one time slot.  <slot> contains the hour like "8:00am".
#  <appmt> is a list containing the alarm setting and the comment
#  message.  <allSlots> is a list of all of the slots, in the order
#  that they are displayed on the page.
# ----------------------------------------------------------------------
proc appointment_load_slot {win slot appmt allSlots} {
   if {[string match "*:00" $slot]} {
       set htags "hour space"
   } else {
       set htags "hour"
   }
     # htags - это набор тэтов, согласно которым
     # меняется внешний вид текста
     # Текст добавляется уже с тэгами (последняя переменная).
   $win.text insert end "\t$slot\t" $htags

   appointment_load_bell $win $slot $appmt

   set pos [lsearch $allSlots $slot]
   if {$pos % 2 != 0} {
       set ctags "comment stripe"
   } else {
       set ctags "comment"
   }
   set mesg [lindex $appmt 1]
   $win.text insert end "$mesg\n" $ctags
}

# ----------------------------------------------------------------------
#  USAGE:  appointment_next <twin>
#
#  Moves to the next appointment slot on the text widget <twin>.
# ----------------------------------------------------------------------
proc appointment_next {win twin} {
   set range [$twin tag nextrange hour insert]
   if {$range != ""} {
       set index [lindex $range 0]
       set range [$twin tag nextrange comment $index]
       set index [lindex $range 0]
       $twin mark set insert $index
   }
   $twin see insert
}

VD>Ну, и чем вы тут хвастались? Убогостью? Ее и так кругом хватает.

void f( const int * i )
  {
    *(const_cast< int * >( i )) = 0;
  }

*((int *)i) = 0;

const int * y = &x;
int * z = const_cast<int *> (y);

IT>Т.е. НЕЛЬЗЯ!!! Но если очень хочется, то можно

extern int crypt_file( char * file_name, char * crypt_device_name );

void some_my_code( const std::string & file_name, const crypting_params_t & params )
  {
    crypt_file( const_cast< char * >( file_name.c_str() ),
      const_cast< char * >( params.device_name().c_str() ) );
    ...
  }

CString fun(std::string s)
{
    return (LPCTSTR)CComBSTR((BSTR)_bstr_t(s.c_str()));
}

IT>Вот как он эти задачи решает

IT>CString fun(std::string s)
IT>{
IT>    return (LPCTSTR)CComBSTR((BSTR)_bstr_t(s.c_str()));
IT>}
IT>

void f(CORBA::Octet o);
void f(CORBA::Boolean b); // Ambiguous
cout << ref—>getString(); // Leak
r1—>putString(r2—>getString()); // Leak
char *p = getString();
delete p; // Heap corruption
std::string s(ref—>getString()); // Leak
if(ref1 == ref2) ... // Undefined