Fortran To Shell Converter

program factorial_calculator
implicit none
integer :: num, result

! Prompt the user for input
print *, ‘Enter a non-negative integer:’
read *, num

! Check for non-negative input
if (num < 0) then print *, 'Factorial is not defined for negative numbers.' else result = factorial(num) print *, 'The factorial of', num, 'is', result end if contains ! Function to calculate factorial recursive function factorial(n) result(fact) integer :: n integer :: fact if (n == 0) then fact = 1 else fact = n * factorial(n - 1) end if end function factorial end program factorial_calculator

#!/bin/bash

# Function to calculate factorial
factorial() {
local n=$1
if [ $n -eq 0 ]; then
echo 1
else
local prev_fact=$(factorial $((n – 1)))
echo $((n * prev_fact))
fi
}

# Prompt the user for input
read -p “Enter a non-negative integer: ” num

# Check for non-negative input
if [ $num -lt 0 ]; then
echo “Factorial is not defined for negative numbers.”
else
result=$(factorial $num)
echo “The factorial of $num is $result”
fi

program rock_paper_scissors
implicit none
integer :: user_choice, computer_choice, user_score, computer_score, rounds
character(len=20) :: choices(3)
logical :: play_again

choices(1) = ‘Rock’
choices(2) = ‘Paper’
choices(3) = ‘Scissors’
user_score = 0
computer_score = 0
play_again = .true.

do while (play_again)
print *, ‘Choose:’
print *, ‘1. Rock’
print *, ‘2. Paper’
print *, ‘3. Scissors’
print *, ‘Enter your choice (1-3): ‘
read *, user_choice

if (user_choice < 1 .or. user_choice > 3) then
print *, ‘Invalid choice. Please select 1, 2, or 3.’
cycle
endif

call random_number(computer_choice)
computer_choice = int(computer_choice * 3) + 1

print *, ‘Computer chose: ‘, choices(computer_choice)

if (user_choice == computer_choice) then
print *, ‘It”s a tie!’
else if ((user_choice == 1 .and. computer_choice == 3) .or. &
(user_choice == 2 .and. computer_choice == 1) .or. &
(user_choice == 3 .and. computer_choice == 2)) then
print *, ‘You win!’
user_score = user_score + 1
else
print *, ‘Computer wins!’
computer_score = computer_score + 1
endif

print *, ‘Score: User ‘, user_score, ‘ – Computer ‘, computer_score
print *, ‘Do you want to play again? (1=Yes, 0=No): ‘
read *, rounds
play_again = (rounds == 1)
end do

print *, ‘Final Score: User ‘, user_score, ‘ – Computer ‘, computer_score
print *, ‘Thanks for playing!’

end program rock_paper_scissors

#!/bin/bash

choices=(“Rock” “Paper” “Scissors”)
user_score=0
computer_score=0
play_again=true

while $play_again; do
echo “Choose:”
echo “1. Rock”
echo “2. Paper”
echo “3. Scissors”
read -p “Enter your choice (1-3): ” user_choice

if [[ $user_choice -lt 1 || $user_choice -gt 3 ]]; then
echo “Invalid choice. Please select 1, 2, or 3.”
continue
fi

computer_choice=$((RANDOM % 3 + 1))

echo “Computer chose: ${choices[$((computer_choice – 1))]}”

if [[ $user_choice -eq $computer_choice ]]; then
echo “It’s a tie!”
elif { [[ $user_choice -eq 1 && $computer_choice -eq 3 ]] ||
[[ $user_choice -eq 2 && $computer_choice -eq 1 ]] ||
[[ $user_choice -eq 3 && $computer_choice -eq 2 ]]; }; then
echo “You win!”
user_score=$((user_score + 1))
else
echo “Computer wins!”
computer_score=$((computer_score + 1))
fi

echo “Score: User $user_score – Computer $computer_score”
read -p “Do you want to play again? (1=Yes, 0=No): ” rounds
play_again=$((rounds == 1))
done

echo “Final Score: User $user_score – Computer $computer_score”
echo “Thanks for playing!”