@@ -17,23 +17,20 @@ <h1>Bash</h1>
1717< pre class ="prettyprint " id ="bash "> #!/bin/bash
1818
1919# Fibonacci numbers
20- # param int n > = 0
21- # returns int > = 0
20+ # Writes an infinite series to stdout, one entry per line
2221function fib() {
23- local n=$(( $1 + 0 ))
24- shift
2522 local a=1
2623 local b=1
27- while [ "$n" != 0 ] ; do
24+ while true ; do
25+ echo $a
2826 local tmp=$a
2927 a=$(( $a + $b ))
3028 b=$tmp
31- n=$(( $n - 1 ))
3229 done
33- echo -n $a
3430}
3531
36- fib 10
32+ # output the 10th element of the series and halt
33+ fib | head -10 | tail -1
3734</ pre >
3835
3936< h1 > C</ h1 >
@@ -293,6 +290,9 @@ <h1>HTML using XMP</h1>
293290</ html >
294291</ xmp >
295292
293+ < h1 > Whitespace</ h1 >
294+ < pre class =prettyprint id ="whitespace "> </ pre >
295+
296296</ body >
297297
298298< script type ="text/javascript ">
@@ -306,28 +306,21 @@ <h1>HTML using XMP</h1>
306306 '`COM#!/bin/bash`END`PLN<br>' +
307307 '<br>' +
308308 '`END`COM# Fibonacci numbers`END`PLN<br>' +
309- '`END`COM# param int n >= 0`END`PLN<br>' +
310- '`END`COM# returns int >= 0`END`PLN<br>' +
309+ '`END`COM# Writes an infinite series to stdout, one entry per line`END`PLN<br>' +
311310 '`END`KWDfunction`END`PLN fib`END`PUN()`END`PLN `END`PUN{`END`PLN<br>' +
312- ' local n`END`PUN=`END`PLN$`END`PUN((`END`PLN $1 `END`PUN+' +
313- '`END`PLN `END`LIT0`END`PLN `END`PUN))`END`PLN<br>' +
314- ' shift<br>' +
315311 ' local a`END`PUN=`END`LIT1`END`PLN<br>' +
316312 ' local b`END`PUN=`END`LIT1`END`PLN<br>' +
317- ' `END`KWDwhile`END`PLN `END`PUN[`END`PLN `END`STR"$n"`END' +
318- '`PLN `END`PUN!=`END`PLN `END`LIT0`END`PLN `END`PUN]`END`PLN `END' +
319- '`PUN;`END`PLN `END`KWDdo`END`PLN<br>' +
313+ ' `END`KWDwhile`END`PLN `END`KWDtrue`END`PLN `END`PUN;`END`PLN `END`KWDdo`END`PLN<br>' +
314+ ' echo $a<br>' +
320315 ' local tmp`END`PUN=`END`PLN$a<br>' +
321316 ' a`END`PUN=`END`PLN$`END`PUN((`END`PLN $a `END`PUN+`END' +
322317 '`PLN $b `END`PUN))`END`PLN<br>' +
323318 ' b`END`PUN=`END`PLN$tmp<br>' +
324- ' n`END`PUN=`END`PLN$`END`PUN((`END`PLN $n `END`PUN-`END' +
325- '`PLN `END`LIT1`END`PLN `END`PUN))`END`PLN<br>' +
326319 ' done<br>' +
327- ' echo `END`PUN-`END`PLNn $a<br>' +
328320 '`END`PUN}`END`PLN<br>' +
329321 '<br>' +
330- 'fib `END`LIT10`END' ) ,
322+ '`END`COM# output the 10th element of the series and halt`END`PLN<br>' +
323+ 'fib `END`PUN|`END`PLN head `END`PUN-`END`LIT10`END`PLN `END`PUN|`END`PLN tail `END`PUN-`END`LIT1`END' ) ,
331324
332325 C : (
333326 '`COM#include <stdio.h>`END`PLN<br>' +
@@ -668,7 +661,8 @@ <h1>HTML using XMP</h1>
668661 '`END`COM// -->`END`PLN<br>' +
669662 ' `END`END`TAG</script>`END`PLN<br>' +
670663 ' `END`TAG</body>`END`PLN<br>' +
671- '`END`TAG</html>`END' )
664+ '`END`TAG</html>`END' ) ,
665+ whitespace : ''
672666} ;
673667
674668
0 commit comments