function s = pentomino_to_boundary_word ( c )

%*****************************************************************************80
%
%% pentomino_to_boundary_word() is given a pentomino and returns its boundary word.
%
%  Discussion:
%
%    Legal pentomino symbols are F, I, L, P, N, T, U, V, W, X, Y, Z.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    07 May 2020
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    char c: the symbol for a pentomino.
%
%  Output:
%
%    char s(*): the boundary word that describes the pentomino.
%
  c = upper ( c );

  if ( c == 'F' )
    s = 'ruurulldldrd';
  elseif ( c == 'I' )
    s = 'ruuuuulddddd';
  elseif ( c == 'L' )
    s = 'rruluuuldddd';
  elseif ( c == 'P' )
    s = 'ruruullddd';
  elseif ( c == 'N' )
    s = 'ruuruuldlddd';
  elseif ( c == 'T' )
    s = 'ruurullldrdd';
  elseif ( c == 'U' )
    s = 'rrruuldluldd';
  elseif ( c == 'V' )
    s = 'rrrulluulddd';
  elseif ( c == 'W' )
    s = 'rrulululddrd';
  elseif ( c == 'X' )
    s = 'rurululdldrd';
  elseif ( c == 'Y' )
    s = 'ruurululdddd';
  elseif ( c == 'Z' )
    s = 'rruluulldrdd';
  else
    fprintf ( 1, '\n' );
    fprintf ( 1, 'pentomino_to_boundary_word - Fatal error!\n' );
    fprintf ( 1, '  Unrecognized pentomino symbol "%s"\n', c );
    error ( 'pentomino_to_boundary_word - Fatal error!');
  end

  return
end

