Convert Decimal into Binary using Recursion in R

by

Converting a decimal number to binary is a common task in computer science and programming. Binary numbers are fundamental to the operation of computers and digital systems. In this comprehensive guide, we will explore how to convert decimal numbers into binary using recursion in R. We will cover three different solutions, each with detailed explanations and outputs. Before diving into the examples, let’s review the prerequisites necessary for this article.

Prerequisites

To follow along with this guide, you should have:

  • Basic knowledge of R programming
  • R and RStudio installed on your machine
  • Familiarity with functions and recursion in R

1. Basic Recursive Function

1.1. Example 1: Simple Recursive Conversion

In this example, we will implement a simple recursive function to convert a decimal number to binary.

Code

R
# Function to convert decimal to binary using recursion
decimal_to_binary <- function(n) {
  if (n == 0) {
    return(0)
  } else if (n == 1) {
    return(1)
  } else {
    return(paste0(decimal_to_binary(n %/% 2), n %% 2))
  }
}

# Test the function with an example
decimal_number <- 10
binary_result <- decimal_to_binary(decimal_number)
cat("Binary of", decimal_number, "is:", binary_result, "\n")

Explanation

  • Function Definition: We define a function decimal_to_binary to convert a decimal number to binary using recursion.
  • Base Cases: The function checks if the number is 0 or 1 and returns the corresponding binary representation.
  • Recursive Call: For other numbers, the function recursively calls itself with the integer division of the number by 2 and appends the remainder of the division to the result.
  • Testing: We test the function with the decimal number 10 and print the binary result.

Output

R
Binary of 10 is: 1010

1.2. Example 2: Handling Larger Numbers

In this example, we modify the previous function to handle larger numbers and ensure the output is in a more readable format.

Code

R
# Function to convert decimal to binary using recursion with proper formatting
decimal_to_binary_format <- function(n) {
  if (n == 0) {
    return("0")
  } else if (n == 1) {
    return("1")
  } else {
    return(paste0(decimal_to_binary_format(n %/% 2), as.character(n %% 2)))
  }
}

# Test the function with a larger number
decimal_number <- 255
binary_result <- decimal_to_binary_format(decimal_number)
cat("Binary of", decimal_number, "is:", binary_result, "\n")

Explanation

  • Function Definition: We define a function decimal_to_binary_format similar to the previous one but ensure the output is a string for better readability.
  • Base Cases and Recursive Call: The function handles base cases and recursively calls itself while formatting the output as a string.
  • Testing: We test the function with the decimal number 255 and print the binary result.

Output

R
Binary of 255 is: 11111111

2. Advanced Recursive Function

2.1. Example 3: Using a Helper Function

In this example, we use a helper function to accumulate the binary digits and simplify the recursive function.

Code

R
# Helper function to accumulate binary digits
decimal_to_binary_helper <- function(n, result) {
  if (n == 0) {
    return(result)
  } else {
    return(decimal_to_binary_helper(n %/% 2, paste0(n %% 2, result)))
  }
}

# Main function to convert decimal to binary
decimal_to_binary_advanced <- function(n) {
  if (n == 0) {
    return("0")
  } else {
    return(decimal_to_binary_helper(n, ""))
  }
}

# Test the function with an example
decimal_number <- 123
binary_result <- decimal_to_binary_advanced(decimal_number)
cat("Binary of", decimal_number, "is:", binary_result, "\n")

Explanation

  • Helper Function: We define a helper function decimal_to_binary_helper to accumulate binary digits.
  • Main Function: The main function decimal_to_binary_advanced calls the helper function, initializing the result as an empty string.
  • Recursive Accumulation: The helper function recursively accumulates the binary digits in the result string.
  • Testing: We test the function with the decimal number 123 and print the binary result.

Output

R
Binary of 123 is: 1111011

2.2. Example 4: Converting a Vector of Decimal Numbers

In this example, we extend the function to handle a vector of decimal numbers, converting each to binary.

Code

R
# Function to convert a vector of decimal numbers to binary
decimal_vector_to_binary <- function(numbers) {
  sapply(numbers, decimal_to_binary_advanced)
}

# Test the function with a vector of decimal numbers
decimal_numbers <- c(1, 2, 3, 4, 5)
binary_results <- decimal_vector_to_binary(decimal_numbers)
cat("Binary of", decimal_numbers, "are:", binary_results, "\n")

Explanation

  • Vectorized Function: We define a function decimal_vector_to_binary to convert a vector of decimal numbers to binary.
  • sapply Function: The function uses sapply to apply the decimal_to_binary_advanced function to each element in the vector.
  • Testing: We test the function with a vector of decimal numbers and print the binary results.

Output

R
Binary of 1 2 3 4 5 are: 1 10 11 100 101