List comprehensions: Difference between revisions
Content added Content deleted
m (→vertical list: added the showing of a blank line in the output.) |
m (→horizontal list: added a SAY.) |
||
Line 2,124: | Line 2,124: | ||
end /*b*/ |
end /*b*/ |
||
end /*a*/ |
end /*a*/ |
||
#= words($) |
#= words($); say |
||
do j=1 until p==0; p= lastPos('}', $, sw) /*find the last } */ |
do j=1 until p==0; p= lastPos('}', $, sw) /*find the last } */ |
||
if p\==0 then do; _= left($, p) |
if p\==0 then do; _= left($, p) |
||
Line 2,131: | Line 2,131: | ||
end |
end |
||
end /*j*/ |
end /*j*/ |
||
say strip($) |
say strip($); say |
||
say |
|||
say # ' members listed.' /*stick a fork in it, we're all done. */</lang> |
say # ' members listed.' /*stick a fork in it, we're all done. */</lang> |
||
{{out|output|text= when using the following input: <tt> 35 </tt>}} |
{{out|output|text= when using the following input: <tt> 35 </tt>}} |