Как преобразовать целое число в список и наоборот в Oz?

Question

Как преобразовать целое число в список и обратно в Oz? Мне нужно взять номер 321 и перевернуть его на 123.

Реверсивная функция в Oz работает только в списках, поэтому я хочу преобразовать 321 в [3 2 1], отменить его и преобразовать [1 2 3] назад в 123. Может ли это быть сделано в Oz?

Answer 1

Отказ от ответственности: Я действительно не знал Оз до 5 минут назад и только читал примеры в Википедии, поэтому следующие ошибки могут быть пронизаны ошибками. Однако он должен дать вам представление о том, как подойти к проблеме. (Выполнение функции tail-recursive остается в качестве упражнения для читателя).

Обновление: Следующая версия протестирована и работает.

local 
    % turns 123 into [3,2,1] 
    fun {Listify N} 
    if N == 0 then nil 
    else (N mod 10) | {Listify (N div 10)} 
    end 
    end 

    % turns [1,2,3] into 321 
    fun {Unlistify L} 
    case 
     L of nil then 0 
     [] H|T then H + 10 * {Unlistify T} 
    end 
    end 
in 
    % Turns 123 into 321 
    {Browse {Unlistify {Reverse {Listify 123}}}} 
end 

Answer 2

Это должно сделать трюк более succintly:

{Show {StringToInt {Reverse {IntToString 123}}}} 

Приветствия