單行小程式

單行小程式 （ One - liner program ） 是不多於一行的電腦程序或表達式 。 它常被用來展示程式語言在不同範疇的表達能力 。 實際上 ， 單行小程式常被直接地從命令線輸入和執行 。 Perl是一種優秀的用來創造單行小程式的語言 。 許多單行小程式是實用的 ， 例如以下perl單行小程式將反轉文件中的所有位元組 ： perl -0777 e' print scalar reverse < >' filename 單行小程式經常用來展示編程的能力 。 經常有看誰能創造最好的單行小程式的比賽 。 99瓶啤酒電腦程式單行小程式的例子 ： perl - e' $b = " of beer "; $w = " on the wall "; print " $_ ", b, " $b $w \ n $_ ", b, " $b \ ntake one down, pass it around, ", $_ - 1, " ", b ( $_ - 1 ), " $b $w \ n \ n " foreach ( reverse 1. .99 ); sub b { $x = " bottle "; $_ [ 0 ] == 1? $x: $x. " s "; }' 一個剪刀石頭布遊戲單行小程式 ： perl - e' $c =( ( $r, $s, $p ) = qw | rock scissors paper | ) [ ( int rand 3 ) ]; $| = 0; until ( $y = ~ / ^ ( $r | $s | $p ) $/ ) { print " $r, $s or $p? " ; $y = < >; chop $y }; % r =( $s, { $p, 1, $r, 0 }, $p, { $r, 1, $s, 0 }, $r, { $s, 1, $p, 0 } ); print " You: $y \ nCom: $c \ nYou ". ( ( exists $r { $y } { $c }? ( $r { $y } { $c }? " Win ": " Lose " ): " Draw " ). " \ n " )' Perl不是唯一一個能寫出單行小程式的語言 。 以下是顯示輸入的內容的ASCII碼的C程式 ： void main ( void ) { int c; while ( c = getchar printf ( " % d % 02X \ n ", c, c ); } Category: 計算機編程