A program of a dynamic programming algorithm for finding pure admissible decision functions in statistical decisions · Study