% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
%                                                                           %
% File:            lotto.dtr                                                %
% Purpose:         illustrates the longest-defined-subpath-wins principle   %
% Author:          James Kilbury, 26 October 1992                           %
% Email:           kilbury@ling.uni-duesseldorf.de                          %
% Address:         U Drf, Universitaetsstr. 1, D-40225 Duesseldorf, Germany %
% Version:         1.01                                                     %
%      Copyright (c) University of Duesseldorf 1992.  All rights reserved.  %
%                                                                           %
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

% After choosing a 7-digit lottery number <a b c d e f g>, evaluate 
% the root  Lotto:<g f e d c b a>  to find out how much you have won.

Lotto:
        <>            ==      0
        <7>           ==      5      % xxxxxx7
        <1 4>         ==     10
        <7 7>         ==     10      % xxxxx77
        <7 9>         ==     10
        <8 3 0>       ==     20
        <7 0 3>       ==     20      % xxxx307
        <2 0 4>       ==     20
        <2 3 5>       ==     20
        <7 2 8>       ==     20      % xxxx827
        <6 1 5>       ==     50
        <0 7 6>       ==     50 
        <3 7 5 6>     ==   1000
        <0 6 3 6 4>   ==  10000
        <2 0 3 9 5 5> == 100000.

% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %

# show  <7 1 2 3 4 5>
        <6 1 2 3 4 5>
        <0 6 3 6 4 1>
        <9 6 3 6 4 1>
        <1 4 6 7 8 9>
        <0 4 6 7 8 9>
        <3 7 5 6 9 0>
        <2 7 5 6 9 0>
        <7 7 0 1 2 3>
        <6 7 0 1 2 3>
        <0 7 6 6 7 8>
        <9 7 6 6 7 8>
        <7 9 4 5 6 7>
        <6 9 4 5 6 7>
        <6 1 5 3 4 5>
        <5 1 5 3 4 5>
        <8 3 0 8 9 0>
        <7 3 0 8 9 0>
        <7 2 8 0 1 2>
        <6 2 8 0 1 2>
        <7 0 3 1 2 3>
        <6 0 3 1 2 3>
        <2 3 5 7 8 9>
        <1 3 5 7 8 9>
        <2 0 4 4 5 6>
        <1 0 4 4 5 6>
        <2 0 3 9 5 4>
        <2 0 3 9 5 5>.

% The next line is the Revision Control System Id: do not delete it.
% $Id: archive.dtr,v 1.1 1997/04/09 20:40:33 root Exp $