Daily Challenge #202 - Complete the Pattern II

pattern :: Int -> String
pattern n
  | n < 1     = " "
  | otherwise = pattern' n
  where
    pattern' n = unlines $ foldl folder [] $ map show [n,(n-1)..1]
    folder :: [String] -> String -> [String]
    folder [] x     = [x]
    folder (p:xs) x = (p ++ x) : p : xs

  def pattern(n) when n < 1, do: " "
  def pattern(n) do
    list = for x <- 1..n, do: n..x
      |> Enum.to_list
      |> Integer.undigits
      |> Integer.to_string
    Enum.join(list, "\n")
  end

EMPTY_RESPONSE = " "
MIN_DIGIT = 1

def pattern(value: int) -> str:
    if not value:
        return EMPTY_RESPONSE

    items = [str(i) for i in reversed(range(MIN_DIGIT, n + MIN_DIGIT))]

    return "".join(items)

string pattern(int n){
    string pat = "";
    for(int i=1;i<n;i++){
        for(int j=n;j>=i;j--)
            pat += to_string(j);
        pat += "\n";
    }
    if(n > 0)
        pat += to_string(n);
    return pat;
}

        private static String pattern(int x) {

                StringBuffer sb = new StringBuffer("\n"),
                        result = new StringBuffer();

                for (int i = 1; i <= x; i++) {
                        sb.insert(0,i);
                        result.insert(0,sb.toString());
                }

                return result.toString();
        }

def pattern(number, end=1):
    res = ''.join([str(i) for i in range(int(number), end-1, -1)])
    if end >= int(number):
        return res
    return res + '\n' + pattern(number, end+1)

pattern = lambda number, end=1 : ''.join([str(i) for i in range(int(number), end-1, -1)]) + ('' if end >= int(number) else '\n' + pattern(number, end+1))

pattern = lambda number : '\n'.join([''.join([str(j) for j in range(int(number),i-1,-1)]) for i in range(1,int(number)+1)])

def pattern(n)
    return "" if n < 1
    (1..n).to_a.reverse.each_with_index.map { |_, index| ((index+1)..n).to_a.reverse.join('') }.join("\n")
end