uniq chars

Submit

Language is selected by the extension of the file. See the list of supported languages to know the extension of your language.

Problem

Uniq characters in each line.

-- tails

Options

exec is denied

now post-mortem time, all source codes will be revealed

Sample input:_

sprintf FORMAT, LIST
    Returns a string formatted by the usual "printf" conventions of the C library function "sprintf".  See below for
    more details and see sprintf(3) or printf(3) on your system for an explanation of the general principles.

    For example:

            # Format number with up to 8 leading zeroes
            $result = sprintf("%08d", $number);

            # Round number to 3 digits after decimal point
            $rounded = sprintf("%.3f", $number);

    Perl does its own "sprintf" formatting: it emulates the C function sprintf(3), but doesn't use it except for
    floating-point numbers, and even then only standard modifiers are allowed.  Non-standard extensions in your local
    sprintf(3) are therefore unavailable from Perl.

    Unlike "printf", "sprintf" does not do what you probably mean when you pass it an array as your first argument. The
    array is given scalar context, and instead of using the 0th element of the array as the format, Perl will use the
    count of elements in the array as the format, which is almost never useful.

    Perl's "sprintf" permits the following universally-known conversions:

       %%    a percent sign
       %c    a character with the given number
       %s    a string
       %d    a signed integer, in decimal
       %u    an unsigned integer, in decimal
       %o    an unsigned integer, in octal
       %x    an unsigned integer, in hexadecimal
       %e    a floating-point number, in scientific notation
       %f    a floating-point number, in fixed decimal notation
       %g    a floating-point number, in %e or %f notation

    In addition, Perl permits the following widely-supported conversions:

       %X    like %x, but using upper-case letters
       %E    like %e, but using an upper-case "E"
       %G    like %g, but with an upper-case "E" (if applicable)
       %b    an unsigned integer, in binary
       %B    like %b, but using an upper-case "B" with the # flag
       %p    a pointer (outputs the Perl value's address in hexadecimal)
       %n    special: *stores* the number of characters output so far
            into the next variable in the parameter list

    Finally, for backward (and we do mean "backward") compatibility, Perl permits these unnecessary but widely-
    supported conversions:

       %i    a synonym for %d
       %D    a synonym for %ld
       %U    a synonym for %lu
       %O    a synonym for %lo
       %F    a synonym for %f

    Note that the number of exponent digits in the scientific notation produced by %e, %E, %g and %G for numbers with
    the modulus of the exponent less than 100 is system-dependent: it may be three or less (zero-padded as necessary).
    In other words, 1.23 times ten to the 99th may be either "1.23e99" or "1.23e099".

Sample output:

sprintf FORMAT,LIS
 Returnsaigfomdbyhl"pcvC.Sw
 moredtailsnpf(3)yuxhgc.

 Forexampl:

 #Formatnubewihp8ldgzs
 $result=pinf("%08d,mb);

 #Roundmbert3igsafclp
 $rounde=spitf("%.3,mb);

 Perldositwn"pfmag:uhCc(3),b'x
 floating-pumbers,dvhyw.Nxc
 sprintf(3)aehouvlbmP.

 Unlike"prtf,sdowhayubmg.T
 aryisgvenclotx,dfuh0mPw
 countfelmsihary,wv.

 Perl's"pintfmhowguvay-kc:

 %apercntsig
 %cahrtewigvnumb
 %satring
 %dasignetr,cml
 %uansigedtr,cml
 %oanusigedtr,cl
 %xanusigedtr,hcml
 %eafloting-pumbr,sc
 %faloting-pumber,xdc
 %gaflotin-pumber,

 Inadito,Perlpmshfwgy-ucv:

 %Xlikex,butsngpr-ca
 %Elike,butsngapr-c"
 %Glikeg,butwhanpr-cs"E(f)
 %banusigedtr,y
 %Blikeb,utsngapr-c"wh#f
 %paointer(ushPlv'dxcm)
 %nspecial:*torhumbf
 intohexvarblpms

 Finaly,forbckwd(em")ptPshu-
 suportedcnvi:

 %iasynomfrd
 %Dasynomfrld
 %Uasynomfrlu
 %Oasynomfrl
 %Fasynomfr

 Notehanumbrfxpdigscy%,EGw
 themodulsfxpna10iy-:br(zc).
 Inotherwds,1.23im9ayb"0

Sample input:_

Perl operators have the following associativity and precedence, listed from highest precedence to lowest.  Operators
borrowed from C keep the same precedence relationship with each other, even where C's precedence is slightly screwy.
(This makes learning Perl easier for C folks.)  With very few exceptions, these all operate on scalar values only, not
array values.

    left        terms and list operators (leftward)
    left        ->
    nonassoc    ++ --
    right       **
    right       ! ~ \ and unary + and -
    left        =~ !~
    left        * / % x
    left        + - .
    left        << >>
    nonassoc    named unary operators
    nonassoc    < > <= >= lt gt le ge
    nonassoc    == != <=> eq ne cmp ~~
    left        &
    left        | ^
    left        &&
    left        || //
    nonassoc    ..  ...
    right       ?:
    right       = += -= *= etc.
    left        , =>
    nonassoc    list operators (rightward)
    right       not
    left        and
    left        or xor

Sample output:

Perl opatshvfwingcyd,m.O
borwed fmCkpthsacnli,v'gy.
(This makelrngPfoC.)Wtvywxcp,u
ary vlues.

 leftrmsandiop(w)
 left->
 noasc+-
 right*
 right!~\anduy+-
 left=~!
 left*/%x
 left+-.
 left<>
 noascmedurypt
 noasc<>=ltge
 noasc=!<>eqmp~
 left&
 left|^
 left&
 left|/
 noasc.
 right?:
 right=+-*ec.
 left,=>
 noasclitper(ghwd)
 rightno
 leftand
 leftorx

Ranking

Ruby _

Perl _

Python _

Python3 _

PHP _

Scheme _

Arc _

Io _

JavaScript _

Lua _

SNOBOL _

REXX _

J _

K _

C _

OCaml _

Haskell _

C# _

REBOL _

AWK _

sed _

wake _

Postscript _

R _

Whitespace _

GolfScript _

FlogScript _

Burlesque _

Vim _

Groovy _

Logo _

Language Ranking_

return top