X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=fml%2Flists.fml;h=2febf655fe7f511403105dcfe4decdab14125663;hb=c3d25c24fb405af98c6879fa7f5f619ccc895151;hp=346628a83bb493f369d3afcdf4d82b588164ddc8;hpb=db6a18e6dc8f76018718a603fadda55c9b036767;p=egate.git diff --git a/fml/lists.fml b/fml/lists.fml index 346628a..2febf65 100644 --- a/fml/lists.fml +++ b/fml/lists.fml @@ -1,17 +1,19 @@ # FML list inspection # -# $Id: lists.fml,v 1.1 1995/02/07 16:09:24 adam Exp $ +# $Id: lists.fml,v 1.6 1995/02/27 09:01:21 adam Exp $ \set months {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec} \set days {31 28 31 30 31 30 31 31 30 31 30 31} -\foreach m \months +Number of months: +\foreach m {\months} {Month: \m\n} \set i 1 Number of days in every month:\n -\while {\i \le 12} +\while {\i \le \llen \months} { \months \index \i : \ \days \index \i \if {\i \eq 6} {\n} \else {,\ } \incr \i } \n -\foreach ost { {feta ost} brie danbo } { \ost\ } +\foreach ost { {feta ost} brie danbo } { \ost\ strlen of \ost\ is +\strlen \ost\ }