#!/bin/sh
perl -ne '$|=1; chop; print "part[$_]\n";' | induce -q -m- -e \
'precious part(1);
part[n] = part[n,1] if n>0; part[0] = 1; part[n] = 0;
part[n,k] = 0 if n<k.(3.k-1)/2;
part[n,k] = part[n-k.(3.k-1)/2] + part[n-k.(3.k+1)/2] - part[n,k+1];'
