function [ c, seed ] = english_letter_sample ( seed ) %*****************************************************************************80 % %% ENGLISH_LETTER_SAMPLE samples the English Letter PDF. % % Licensing: % % This code is distributed under the GNU LGPL license. % % Modified: % % 05 March 2016 % % Author: % % John Burkardt % % Parameters: % % Input, integer SEED, a seed for the random number generator. % % Output, character C, a sample of the PDF. % % Output, integer SEED, an updated seed for the random number generator. % [ cdf, seed ] = r8_uniform_01 ( seed ); c = english_letter_cdf_inv ( cdf ); return end