Podzielne ciągi
Zadanie
Biorąc pod uwagę łańcuch s, wypisz prawdziwą wartość, jeśli kod ASCII każdej litery jest podzielny przez długość s, a falsey w przeciwnym razie.
Wejście wyjście
Dane wejściowe to niepusty ciąg zawierający tylko ASCII [32-126]. Dane wyjściowe to standardowa wartość prawda / fałsz. Zauważ, że możesz zmieniać wartości, na przykład zwracając 0/ Falsejeśli podzielne i odwrotnie
Przypadki testowe
Input Output
Hello False (72 101 108 108 111), 5
lol True (108 111 108), 3
Codegolf False (67 111 100 101 103 111 108 102), 8
A True (65), 1
nope False (110 111 112 101),4
8 8 True (56 32 32 56), 4
Odpowiedzi
MATL , 4 bajty
tn\~
- W przypadku łańcuchów podzielnych wynikiem jest wektor zawierający tylko
1s, co jest zgodne z prawdą . - W przeciwnym razie wyjście jest wektorem zawierającym kilka
1s i co najmniej jeden0, co jest fałszywe .
Wypróbuj online! Lub zweryfikuj wszystkie przypadki testowe, w tym test na prawdziwość / fałsz.
Jak to działa
t % Implicit input. Duplicate
n % Number of elements
\ % Modulo
~ % Negate. Implicit display
Befunge-98 (FBBI) , 31 bajtów
Dane wyjściowe są 1wysyłane 0za pośrednictwem kodu zakończenia, prawdę mówiąc, dla przypadków falsey.
#v~\1+
v>53p
>:#v_1q
^ >' %#@_
Wypróbuj online!
Kod działający z wejściami loli ab:
małe liczby reprezentują dosłowne wartości bajtów
Haskell , 42 39 bajtów
(<1).sum.(map=<<flip(mod.fromEnum).length)
f s=sum[fromEnum c`mod`length s|c<-s]<1
3 bajty mniej dzięki ovs i xnor!
Wypróbuj online!
05AB1E , 5 bajtów
ÇsgÖP
Wypróbuj online!
Skomentowano
# implicit input "lol"
Ç # push ASCII value [108, 111, 108]
s # swap (with input) [108, 111, 108], "lol"
g # length [108, 111, 108], 3
Ö # is divisible? [1, 1, 1]
P # product 1
Rockstar , 205 192 175 162 bajty
Cóż, było fajnie. Rockstar nie ma możliwości bezpośredniego odczytania długości łańcucha, nie może konwertować znaków na punkty kodowe i nie ma operatora modulo. Zaskoczony, że wyszło tak krótko!
listen to S
cut S
X's0
D's0
while S at X
N's32
while N-127
cast N into C
if C is S at X
let M be N/S
turn down M
let D be+N-S*M
let N be+1
let X be+1
say not D
Wypróbuj tutaj (należy wkleić kod)
Pyth , 8 bajtów
!sm%CdlQ
Wypróbuj online!
!sm%CdlQ
m : map implicit input on
: lambda d:
Cd : Ascii value of d
% lQ : mod length of input
s : sum result of map
! : logical negate it
JavaScript, 32 bajty
Ouput jest odwrócony.
s=>Buffer(s).some(c=>c%s.length)
Wypróbuj online!
PHP , 56 52 bajty
for(;$c=ord($argn[$i++]);$c%strlen($argn)?die(f):1);
Wypróbuj online!
Wyjście jest odwrócone
Wykonywanie zatrzymuje się, fjeśli jakikolwiek znak nie jest podzielny lub pusty ciąg (fałszywy w PHP), jeśli wszystkie są podzielne
EDYCJA: zapisano 4 bajty dzięki @ 640KB
Python 2 , 41 39 bajtów
lambda s:all(ord(i)%len(s)<1for i in s)
Wypróbuj online!
-2 bajty dzięki @ovs
K (oK) , 11 bajtów
{~+/(#x)!x}
Wypróbuj online!
Rust , 36 bajtów
|s|s.iter().all(|x|1>x%s.len()as u8)
Wypróbuj online!
Przyjmuje dane wejściowe jako a &[u8], wyprowadza a bool.
Pip , 12 bajtów
!$+(A_Ma)%#a
Wypróbuj online!
Wyjaśnienie
!$+(A_Ma)%#a a → input
(A_Ma) Map a to Unicode/ASCII codepoints
%#a Modulo the list by it's length
$+ Sum up the remainders
! Not(returns 0 for any positive number, 1 for 0)
Ruby , 43 37 36 32 bajty
->a{a.bytes.all?{|n|n%a.size<1}}
gdyby tylko mapa mogła być użyta na łańcuchach.
-10 bajtów z OVS.
-1 bajt z Dingus.
Wypróbuj online!
Perl 5 -pF , 20 bajtów
$_=!grep ord()%@F,@F
Wypróbuj online!
C (gcc) , 54 53 bajty
l;r;f(char*s){l=strlen(s);for(r=0;*s;)r|=*s++%l;l=r;}
Wypróbuj online!
Zwraca falsey, jeśli wartość ASCII każdego znaku jest podzielna przez długość ciągu wejściowego lub prawda, jeśli jest inaczej.
Wyjaśnienie:
l;r;f(char*s){l=strlen(s);for(r=0;*s;)r|=*s++%l;l=!r;}
l;r; // Declare 2 int variables
f( // Function f taking
char*s){ // string parameter s
l=strlen(s); // Store length of s in l
for( // Loop
r=0; // initialising r to 0
*s;) // until end of s
r|= // Bitwise or r with
*s // the ASCII value of the next
// character...
++ // Aside: push s pointer forward
%l; // ... mod the string length
r=l; // Return r (r will be 0
// iff every character was
// divisible by l)
Język Wolfram (Mathematica) , 40 bajtów
{0}==##&@@ToCharacterCode@#~Mod~Tr[1^#]&
Wypróbuj online!
dzięki @att za zaoszczędzenie kilku bajtów
APL (Dyalog Extended) , 7 bajtów ( SBCS )
Anonimowa funkcja milczącego prefiksu
⍱≢|⎕UCS
Wypróbuj online!
⍱ czy żadne z następujących nie jest prawdziwe (niezerowe)?
≢ długość
| dzieli (lit. reszta z dzielenia)
⎕UCS punkty kodowe
C # (.NET Core) , 25 bajtów
a=>a.All(x=>x%a.Length<1)
Wypróbuj online!
Japt -e , 6 bajtów
c vNÎÊ
Spróbuj
MathGolf , 4 bajty
$h÷╓
Wprowadź jako listę znaków.
Wypróbuj online.
Wyjaśnienie:
$ # Get the codepoint of each character in the (implicit) input-list
h # Push the length of this list (without popping the list itself)
÷ # Check for each codepoint if it's divisible by this length
╓ # Pop and push the minimum of the list
# (after which the entire stack joined together is output implicitly as result)
Galaretka , 4 bajty
LḍOP
Wypróbuj online! lub Zweryfikuj wszystkie przypadki!
Commmented: (przynajmniej myślę, że to działa w ten sposób)
P # product of ...
L # does the length
ḍ # ... divide ...
O # the char codes
R , 39 38 bajtów
Edycja: -1 bajt dzięki nowej regule, że możemy wyprowadzić TRUE dla FALSE i FALSE dla TRUE
function(s)any(utf8ToInt(s)%%nchar(s))
Wypróbuj online!
Lub wypróbuj oryginalną 39-bajtową wersję, która wyświetla TRUE dla TRUE ...
Clojure, 41 znaków
(every? #(= 0 (mod (int %) (count x))) x)
Usuwanie spacji po komentarzu 37 znaków
(every? #(= 0(mod(int %)(count x)))x)
MAWP , 34 33 24 23 bajty
`|_=M0=A0/[M%{0:.}?`]1:
Spróbuj!
Dzięki @Razetime za zaoszczędzenie 9 bajtów!
Wyjaśnienie:
` Remove starting 1 on stack
| Push input on stack as ASCII codes
_=M Set variable M to length of stack (length of input)
0=A Set variable A to 0
0/ Push 0 and cycle stack
[ Start of loop
M% Modulo by M
{0:.} If not 0 then print 0 and terminate
?` If 0 then pop value
] End of loop
1: Print 1
Brachylog , 8 bajtów
ạfᵐ∋ᵛ~l?
Wypróbuj online!
ạfᵐ∋ᵛ~l?
ạ characters to integer
fᵐ find all factors
∋ᵛ every list of factors contain …
~l? the length of the input
Wersja alternatywna,
⟨ạzl⟩%ᵛ0
⟨fhg⟩ forks! fA & gB ∧ [A, B]h
ạzl zip the code blocks with the length;
[[108, 3], [111, 3], [108, 3]]
%ᵛ0 every list must be 0 after modulo
Python 3 , 55 52 bajty
N=input();print(not sum([ord(i)%len(N) for i in N]))
Wypróbuj online!
GolfScript , 20 bajtów
.,0@{(3$%@+\}3$*;!\;
Wypróbuj online!
Wyprowadza 1, jeśli łańcuch jest podzielny i 0, jeśli nie jest. Niech S będzie sznurkiem, a L jego długością.
.,0@ # The stack from bottom up will be: L 0 S
{ }3$* # Execute this block L times ( # Separate first char from the string as a number 3$% # Previous number mod L
@+\ # Add result to the acumulator
; # Discard the ""
! # 1 iff the acumulator is 0
\; # Discard L
Węgiel , 8 bajtów
¬⊙θ﹪℅ιＬθ
Wypróbuj online! Link prowadzi do pełnej wersji kodu. Wynik jest wartością logiczną Charcoal, tj. -Dla prawdy, nic dla fałszu. Wyjaśnienie:
θ Input string
⊙ Is there a character where
ι Current character
℅ Ordinal
﹪ Modulo (i.e. is not divisible by)
θ Input string
Ｌ Length
¬ Boolean NOT
Implicitly print
⬤θ¬﹪℅ιＬθ oczywiście też działa.
Współczynnik , 62 bajty
: f ( s -- ? ) dup length [ mod ] curry [ + ] map-reduce 0 = ;
Wypróbuj online!
C # (interaktywny kompilator Visual C #) , 81 bajtów
(s)=>{var bs = ASCIIEncoding.ASCII.GetBytes(s);return bs.All(b=>b%s.Length==0);};
Wypróbuj online!
C # (interaktywny kompilator Visual C #) ,
27
26 bajtów
s=>s.All(c=>c%s.Length<1);
Wypróbuj online!