fork download
  1. import System.IO
  2.  
  3. quicksort [] = []
  4. quicksort (x:xs) = quicksort [y | y <- xs, y < x] ++ [x] ++ quicksort [y | y <- xs, y >= x]
  5.  
  6. main = print . quicksort =<< getLine
  7.  
Success #stdin #stdout 0.01s 3600KB
stdin
#include <stdio.h>

int main(void) {
char *ptr = "ABC";
int i;
for(i=0; ptr[i-1]; i++)
putchar(ptr[i]);
putchar('\n');
printf("%s", ptr);
return (0);
}
 
stdout
" #.<>cddehiilnostu"