Te sugerimos que revises esta respuesta en un entorno controlado antes de enviarlo a producción, saludos.
Solución:
Braquilog, 1 byte
=
¡Pruébelo en línea!
Esto actúa sobre números enteros.
Desde src/predicates.pl#L1151:
brachylog_equal('integer':0, 'integer':0, 'integer':0).
brachylog_equal('integer':0, 'integer':I, 'integer':I) :-
H #= 0,
integer_value('integer':_:[H|T], I),
brachylog_equal('integer':0, [H|T], [H|T]).
C (cc), 3330 29 bytes
f(n)n=n%100%11?9/n:f(n/10);
¡Pruébelo en línea!
COBOL, 139 BYTES
Siento que COBOL no recibe ningún amor en el golf de código (probablemente porque no hay forma de que pueda ganar), pero aquí va:
IF A = ALL '1' OR ALL '2' OR ALL '3' OR ALL '4' OR ALL '5' OR
ALL '6' OR ALL '7' OR ALL '8' OR ALL '9' DISPLAY "TRUE" ELSE
DISPLAY "FALSE".
A se define como un PIC 9(4).
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)