-- ход противника
chess state = do move <- getChannel c
                 chess2 (applyMove state move)

-- наш ход
chess2 state = do let move = calcOurMove state
                  putChannel c move
                  chess (applyMove state move)

BZ>а на пальцах показать? с чистыми данными такая проблема — это и есть данные. хочешь — шахматную доску передавай, хочешь — состояние ядерного реактора. "не будет ни радио, ни газет, ни кино — одно сплощное телевидение"

-module( my_object ).

-record( this, { member1 = "a", member2 = 1, ... } ).

new() ->spawn( fun dispatch/1, #members{} ).

set( This, Attribute, Value ) -> This ! { set, Attribute, Value }.
get( This, Attribute, Value ) ->
   This ! { get, Attribute, self() },
   receive { return, This, Value } -> Value end.

dispatch( Members ) ->
   NewState = receive
      { set, member1, Value } -> Members#this{ member1 = Value };
      { get, member1, Caller } -> Caller ! { return, self(), Members#this.member1 }, Members;
   ...
   end,
   dispatch( NewState ).

-module( caller ).
...
   Obj = my_object:new(),
   "a" = my_object:get( Obj, member1 )
   my_object:set( Obj, member1, "b" ),
...
   "a" = my_object:get( Obj, member1 ), %% Ой! Эксцепшн bad_match! Значение то у нас вернулось - "b"!

evaluate(expression(), Ref->Value ) -> Value.

module( expression ).
-export( [ create/1, evaluate/2, refs/1 ] ).

create( string() ) -> expression().

refs(expression()) -> [ Ref ].
evaluate(expression(), dictionary() ) -> Val.

Т>module( expression ).
Т>-export( [ create/1, evaluate/2, refs/1 ] ).

Т>create( string() ) -> expression().

Т>refs(expression()) -> [ Ref ].
Т>evaluate(expression(), dictionary() ) -> Val.
Т>

-module( sheet ).

evaluate( Ref, Sheet ) ->
   Value = get_cell( Ref, Sheet ), % цыклы не ловим, ломает. Понятно, как, но лень
   { Context, NewSheet }= mapfoldl( fun evaluate/2, Sheet, cell:dependency_list( Value ) ),
   NewValue = cell:evaluate( Value, Context ),
   { NewValue, set_cell( Ref, NewValue ) }.
...

-module( cell ). %% как-то больно тупо стал выглядеть этот модуль. :)
depencency_list( { expression, Expr } ) -> expression:depencency_list( Expr );
depencency_list( _ ) -> [].

evaluate( { expression, Expr }, Context ) -> expression:evaluate( Expr, Context );
evaluate( Value, [] ) -> Value.

...

-module( expression ).

depencency_list( { _Expr, Refs } ) -> Refs.
evaluate( { ref, _ }, [ Value | Rest ] ) -> { Value, Context }
...
evaluate( Num, Context ) -> { Num, Context }
...

G>-module( sheet ).

G>evaluate( Ref, Sheet ) ->
G>   Value = get_cell( Ref, Sheet ), % цыклы не ловим, ломает. Понятно, как, но лень
G>   { Context, NewSheet }= mapfoldl( fun evaluate/2, Sheet, cell:dependency_list( Value ) ),
G>   NewValue = cell:evaluate( Value, Context ),
G>   { NewValue, set_cell( Ref, NewValue ) }.
G>...
G>

evaluate( Ref, Sheet ) ->
   Value = get_cell( Ref, Sheet ),
   Context = lists:map( fun ( R ) -> get_cell( R, Sheet ) end, cell:dependency_list(Value) ),
   cell:evaluate( Value, Context ).

evaluate( Sheet ) ->
  DepGraph = build_depgraph(Sheet), 
  case digraph_utils:is_acyclic(DepGraph) of
  true ->  
      RefList = digraph_utils:topsort(DepGraph),
      lists:foldl( fun evaluate/2, Sheet, RefList);
  false -> 
      ...
  end.

Т>evaluate( Sheet ) ->
Т>  DepGraph = build_depgraph(Sheet), 
Т>  case digraph_utils:is_acyclic(DepGraph) of
Т>  true ->  
Т>      RefList = digraph_utils:topsort(DepGraph),
Т>      lists:foldl( fun evaluate/2, Sheet, RefList);
Т>  false -> 
Т>      ...
Т>  end.
Т>

RefList = digraph_utils:topsort(DepGraph)

RefList = lists:reverse(digraph_utils:topsort(DepGraph))

evaluate(Sheet)->
  ...
  false ->
    CycPart=digraph_utils:reaching(lists:append(digraph_utils:cyclic_strong_components(DepGraph))),
    Sheet1=lists:foldl(fun(Ref,Sheet)->set_cell(Ref,cell:make_error('#cycle'),Sheet) end,Sheet,CycPart),
    digraph:del_vertices(DepGraph,CycPart),
      ...

C>>Так ведь все просто: предложи лучшее решение

Маленький Эксель
----------------

Необходимо реализовать простую электронную таблицу в виде программы, выполняющейся
из командной строки. Она должна уметь обрабатывать ячейки таблицы как и более
продвинутые аналоги, только с упрощенным синтаксисом выражений. Каждая ячейка
может содержать:
— Ничего
— Неотрицательное целое число
— Текстовые строки, которые начинаются с символа '
— Строки-выражения, которые начинаются с символа '=' и могут содержать
неотрицательные целые числа, ссылки на ячейки и простые арифметические
выражения. Скобки запрещены, у всех операций одинаковый приоритет.
Ссылки на ячейки состоят из одной латинской буквы и следующей за ней
цифры.

Эти ограничения введены для упрощения разбора выражений, поскольку разбор
выражений не является основной частью проблемы. Вы можете спокойно
положиться на эти ограничения. Вот грамматика содержимого ячейки:

expression ::= '=' term {operation term}*
term ::= cell_reference | nonnegative_number
cell_reference ::= [A-Za-z][0-9] --
operation ::= '+' | '-' | '*' | '/'
text ::= '\'' {printable_character}

Процесс обработки:
— Все выражения должны быть заменены на вычисленный результат.
— Все вычисления выполняются с помощью целочисленной арифметики со знаком.
— Ячейки с текстом должны быть вычислены как соответствующий текст без
префикса '.
— Операции над строками текста запрещены.
— В случае любой ошибки вычисления формулы, вычисляемая ячейка должна содержать
слово-сообщение об ошибке, начинающееся с символа '#'. Используйте короткие,
ясные сообщения. Не надо предоставлять подробности об ошибках в выводе.

Программа должна использовать только стандартные библиотеки и классы и не должна
вызывать сторонние программы, библиотеки или системные компоненты.


Ввод и вывод
------------

Программа получает описание таблицы с формулами из стандартного ввода,
вычисляет ее и печатает полученный результат в стандартный вывод. Входные
данные представлены таблицей, элементы строк которой разделены табуляциями.
Первая строка содержит пару чисел, разделенных табуляцией — высоту и
ширину таблицы, соответственно. Затем идут строки с ячейками таблицы,
в грамматике, приведенной выше.


Выход должен содержать только ожидаемую информацию, включая сообщения об
ошибках, и никакой другой информации в выводе не должно быть, включая и
welcome text. Выход должен быть отформатирован в соответствии с приведенным
ниже примером.

Пример данных:
3 4
12 =C2 3 'Sample
=A1+B1*C1/5 =A2*B1 =B3-C3 'Spread
'Test =4-3 5 'Sheet

Ожидаемый вывод:
12 -4 3 Sample
4 -16 -4 Spread
Test 1 5 Sheet


Указания по решению
-------------------
Необходимо промышленное качество кода. Более короткое и читаемое решение
предпочтительней. Решение должно содержать тестовые примеры и код, использованные
в процессе создания решения. Не забудьте откомментировать код в ключевых
местах. Код должен быть устойчив к ошибкам.

Представьте, что это требования к первой фазе проекта. Необходимо реализовать
только то, что нужно на этой фазе. Однако, известно, что планируется вторая
фаза, в которой требования будут расширены следующими:
— Расширить формулы операциями над строками,
— Оптимизировать производительность для громадных таблиц.

Вам необходимо будет указать, какие изменения необходимо сделать для
реализации второй фазы проекта.