zliczanie liczb, co jest źle ?
Otrzymałeś(aś) rozwiązanie do zamieszczonego zadania? - podziękuj autorowi rozwiązania! Kliknij
-
- Fachowiec
- Posty: 1751
- Rejestracja: 05 sie 2009, 13:08
- Otrzymane podziękowania: 207 razy
-
- Fachowiec
- Posty: 1751
- Rejestracja: 05 sie 2009, 13:08
- Otrzymane podziękowania: 207 razy
-
- Stały bywalec
- Posty: 302
- Rejestracja: 25 paź 2012, 21:34
- Podziękowania: 228 razy
- Płeć:
Ja poczekam aż ktoś poważny to zweryfikuje
Pewnie nawet nie wiesz, ale sam sobie strzeliłeś w piętę. No nieźle.
Ostatnio zmieniony 26 lip 2014, 21:26 przez chcezdacmatureR, łącznie zmieniany 2 razy.
-
- Fachowiec
- Posty: 1751
- Rejestracja: 05 sie 2009, 13:08
- Otrzymane podziękowania: 207 razy
-
- Fachowiec
- Posty: 1751
- Rejestracja: 05 sie 2009, 13:08
- Otrzymane podziękowania: 207 razy
No to ja jako osoba poważna wrzucę kod (pakiet R)
No i jest śmiesznie bo się zgadza
Niestety dobry wynik to nie wszystko. Z takim opisem:
Za swoje rozumowanie dostałbyś zero punktów na dowolnym kolosie, więc nic nie jest warte, przykro mi
A szkoda, bo się sprawdza.
012=12
Jeśli się takie zapisy pojawiają no to cóż...co innego można napisać niż bzdura?
Kod: Zaznacz cały
a= 1:10^6
b=numeric(10^6 )
length(b)
digits <- function(x) {
if(length(x) > 1 ) {
lapply(x, digits)
} else {
n <- nchar(x)
rev( x %/% 10^seq(0, length.out=n) %% 10 )
}
}
e=digits(a )
for(i in 1:10^6)
{
b[i]=sum(e[[i]])
}
u=0
for(i in 1:10^6)
{
if(b[i]==14) {
u=u+1;
}
}
u
Niestety dobry wynik to nie wszystko. Z takim opisem:
Za swoje rozumowanie dostałbyś zero punktów na dowolnym kolosie, więc nic nie jest warte, przykro mi
A szkoda, bo się sprawdza.
012=12
Jeśli się takie zapisy pojawiają no to cóż...co innego można napisać niż bzdura?
W sprawie rozwiązania zadań proszę pisać na numer GG
6401380
6401380