langs a-z

This commit is contained in:
Ingy döt Net 2013-04-10 22:43:41 -07:00
parent db842d013d
commit d066446780
11389 changed files with 98361 additions and 1020 deletions

View file

@ -0,0 +1,14 @@
#!/bin/sh
# Guess the number
# This simplified program does not check the input is valid
# Use awk(1) to get a random number. If awk(1) not found, exit now.
number=`awk 'BEGIN{print int(rand()*10+1)}'` || exit
echo 'I have thought of a number. Try to guess it!'
echo 'Enter an integer from 1 to 10.'
until read guess; [ "$guess" -eq "$number" ]
do
echo 'Sorry, the guess was wrong! Try again!'
done
echo 'Well done! You guessed it.'

View file

@ -0,0 +1,14 @@
#!/bin/csh -f
# Guess the number
# jot(1) a random number. If jot(1) not found, exit now.
@ number = `jot -r 1 1 10` || exit
echo 'I have thought of a number. Try to guess it!'
echo 'Enter an integer from 1 to 10.'
@ guess = "$<"
while ( $guess != $number )
echo 'Sorry, the guess was wrong! Try again!'
@ guess = "$<"
end
echo 'Well done! You guessed it.'