Mathematica 54 41 byte
Con un suggerimento assolutamente intelligente di LegionMammal978 che consente di risparmiare 13 byte.
If[#>0,FromLetterNumber,,LetterNumber]@#&
If[#>0,FromLetterNumber,,LetterNumber]serve al solo scopo di decidere se applicare FromLetterNumbero LetterNumberall'input.
#>0sarà soddisfatto se l'ingresso,, #è un numero, nel qual caso FromLetterNumberverrà selezionato.
Tuttavia #>0non sarà né vero né falso se #è una lettera e LetterNumberverrà selezionato invece.
If[#>0,FromLetterNumber,,LetterNumber]@#&["d"]
4
If[#>0,FromLetterNumber,,LetterNumber]@#&[4]
d
In Mathematica, FromLetterNumbere LetterNumberfunzionerà anche con altri alfabeti. Ciò richiede solo qualche byte in più.
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Greek"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Russian"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Romanian"]
δ
г
b
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[δ, "Greek"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[г, "Russian"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[b, "Romanian"]
4
4
4