Free Online Perl to Haskell Code Converter

Instantly convert code snippets from Perl to Haskell with our free online code converter. Transform your code easily and accurately.

How to Use Our Perl to Haskell Code Converter

Paste your Perl code snippet into the input box.
Click the "Convert" button to transform your code.
Our AI-powered converter will instantly translate your Perl code to Haskell.
Copy the converted Haskell code and use it in your project.

Is Our Perl to Haskell Converter Secure?

We prioritize your code's security and privacy. Your code is not stored on our servers and is only temporarily processed for conversion. We use OpenAI's secure servers for the conversion process, ensuring your code remains confidential.

About Perl

Perl is a family of two high-level, general-purpose, interpreted programming languages.

About Haskell

Haskell is a purely functional programming language.

Palindrome Check Example: Perl vs Haskell

Palindrome Check in Perl

sub is_palindrome {
    my $str = shift;
    $str =~ s/[^a-zA-Z0-9]//g;
    $str = lc($str);
    return $str eq reverse($str);
}

# Example usage
print is_palindrome("A man, a plan, a canal: Panama") ? "true\n" : "false\n";
print is_palindrome("race a car") ? "true\n" : "false\n";

Palindrome Check in Haskell

import Data.Char (isAlphaNum, toLower)

isPalindrome :: String -> Bool
isPalindrome str = clean == reverse clean
  where clean = map toLower $ filter isAlphaNum str

main :: IO ()
main = do
  print $ isPalindrome "A man, a plan, a canal: Panama" -- True
  print $ isPalindrome "race a car" -- False

Bubble Sort Example: Perl vs Haskell

Bubble Sort in Perl

sub bubble_sort {
    my @arr = @_;
    my $n = scalar @arr;
    for my $i (0..$n-1) {
        for my $j (0..$n-$i-2) {
            if ($arr[$j] > $arr[$j+1]) {
                @arr[$j,$j+1] = @arr[$j+1,$j];
            }
        }
    }
    return @arr;
}

my @arr = (64, 34, 25, 12, 22, 11, 90);
print join(" ", bubble_sort(@arr)) . "\n";

Bubble Sort in Haskell

bubbleSort :: Ord a => [a] -> [a]
bubbleSort xs = foldr (\_ -> bubble) xs [1..length xs - 1]
  where
    bubble [] = []
    bubble [x] = [x]
    bubble (x:y:xs)
      | x > y     = y : bubble (x:xs)
      | otherwise = x : bubble (y:xs)

main :: IO ()
main = print $ bubbleSort [64, 34, 25, 12, 22, 11, 90]