Comments 46
Javascript
function hex2dec(n){
return parseInt(n, 10)
}
-2
Тогда уж parseInt(n,16). И что она сделает, если подать на вход строку в 100 мегабайт длиной?
0
как раз parseInt(n, 16) вернет число в 16-тиричной системе счисления, у нас то на выходе должна быть десятичная?
по поводу 100 мегабайт — в условии про это ни слова.
по поводу 100 мегабайт — в условии про это ни слова.
0
Ась?
function hex2dec(n) { return parseInt(n, 16).toString(10) }
function hex2dec(n) { return parseInt(n, 16).toString(10) }
0
может мне пора спать, но попробуйте hex2dec(0xff)
0
По условию, входная строка состоит только из 16-ричных цифр (большими буквами) безо всяких 0x.
0
parseInt возвращает число. Все числа в JS десятичные. 0xFF — всего-лишь другой способ записи десятичных чисел.
Зато метод toString для объектов типа Number возвращает строковое представление числа в соответствующей аргументу системе счисления.
Таким образом, правильным решением будет parseInt(n, 16)
Зато метод toString для объектов типа Number возвращает строковое представление числа в соответствующей аргументу системе счисления.
Таким образом, правильным решением будет parseInt(n, 16)
0
Хорошо, пусть будет 100000 байт, чтобы квадратичные алгоритмы работали за разумное время. Добавил ограничение.
0
.bat файл
@echo off
setlocal enabledelayedexpansion
set /a result=0
set all=%1
set /a mult=1
:START
set dig=!all:~-1,1!
set all=!all:~0,-1!
if '!dig!'=='0' set /a number=0
if '!dig!'=='1' set /a number=1
if '!dig!'=='2' set /a number=2
if '!dig!'=='3' set /a number=3
if '!dig!'=='4' set /a number=4
if '!dig!'=='5' set /a number=5
if '!dig!'=='6' set /a number=6
if '!dig!'=='7' set /a number=7
if '!dig!'=='8' set /a number=8
if '!dig!'=='9' set /a number=9
if '!dig!'=='A' set /a number=10
if '!dig!'=='B' set /a number=11
if '!dig!'=='C' set /a number=12
if '!dig!'=='D' set /a number=13
if '!dig!'=='E' set /a number=14
if '!dig!'=='F' set /a number=15
set /a result=!result!+(!mult!*!number!)
set /a mult=!mult!*16
if not '!all!'=='' goto START
echo !result!
+6
Месье?
0
Можно короче:
@echo off && setlocal enabledelayedexpansion && set all=%1
set mult=1
:START
set dig=!all:~-1,1!
set all=!all:~0,-1!
if '!dig!'=='A' set dig=10
if '!dig!'=='B' set dig=11
if '!dig!'=='C' set dig=12
if '!dig!'=='D' set dig=13
if '!dig!'=='E' set dig=14
if '!dig!'=='F' set dig=15
set /a result=!result!+(!mult!*!dig!)
set /a mult=!mult!*16
if not '!all!'=='' goto START
echo !result!
0
Может я чего не понял, но как связано ненормальное программирование и поставленная задача? И как можно приглашать написать своё решение, а потом давать такое решение на С#? Уж извините за неконструктивную критику.
+3
Я же предлагаю писать красивые, короткие и эффективные решения. Поэтому предложить вариант, который не является ни тем, ни другим, ни третьим вполне можно — хлеб ни у кого не отбиваю. Наоборот, предлагаю улучшить. А ненормальное — потому что набор языков не ограничен, решения на эзотерических языках только приветствуются. Но может быть, я неправильно понимаю предполагаемый смысл «ненормальности».
0
Теперь ясно. Просто читать и понимать представленный код было очень тяжело. Более человечное (человекоснисходительное) именование не помешает.
+1
Понятно. Придумывать имена локальным переменным, область существования которых меньше одного экрана, я так и не научился. А программу немного исправил — теперь она не будет перезахватывать строку много раз.
0
python:
reduce(lambda x,y:x+y, [(int© if c<'A' else ord©-ord('A')+10)*16**p for p,c in zip(xrange(len(str)),str[::-1])])
+4
А оно выдает строку? Или только число?
0
парсер — лох:
везде вместо © необходимо c в круглых скобках
везде вместо © необходимо c в круглых скобках
0
В этом языке тип bignum используется по умолчанию? Если нет — то 16**p начиная с не очень больших значений (32? 64?) даст потерю точности. Думаю, что на таком функционале было бы несложно написать и полное решение для любой длины.
0
Все будет в порядке:
>>> 16**1024
10443888814131525066917527107166243825799642490473837803842334832839539079715574
56848826811934997558340890106714439262837987573438185793607263236087851365277945
95697654370999834036159013438371831442807001185594622637631883939771274567233468
43445866174968079087058037040712840487401186091144679777835980290066869389768817
87785946905630190260940599579453432823469303026696443059025015972399867714215541
69383555988529148631823791443449673408781187263949647510018904134900841706167509
36683338505510329720882695507699836163694119330152137968258371880918336567512213
18492846368125550225998300412344784862595674492194617023806505913245610825731835
38008760862210283427019769820231316901767800667519548507992163641937028537512478
40149071591354599827905133996115517942711068311340905842728842797915548497829543
23534517065223269061394905987693002122963395687782878948440616007412945674919823
05057164237715481632138063104590291613692670834285644073044789997190178146576347
32238502672530598997959960907994692017746248177184498674556592501783290704731194
33165550807568221846571746373296884912819520317457002440926616910874148385078411
92980452298185733897764810312608590300130241346718972667321649151113160292078173
8033436090243804708340403154190336L
0
Попробовал… с str = 'ffff', получил результат 205343, а где 65535?
0
Perl:
use Math::BigInt;
sub hex2dec { Math::BigInt->from_hex('0x'. shift) }
use Math::BigInt;
sub hex2dec { Math::BigInt->from_hex('0x'. shift) }
+1
А без BigNum?
0
ну да точно… bignum:
выведет результат для числа состоящего из 1000 'f'
На самом деле это не костыль это прагма из набора Core модулей, т.е. встроенная фича языка, потому использование bignum оправданно. Ну для чистоты эксперимента сейчас уложу детей и напишу без этих удобств.
use 5.012;
use bignum;
say hex('f' x 1000);
выведет результат для числа состоящего из 1000 'f'
На самом деле это не костыль это прагма из набора Core модулей, т.е. встроенная фича языка, потому использование bignum оправданно. Ну для чистоты эксперимента сейчас уложу детей и напишу без этих удобств.
+1
python:
def hex2dec(s): return str(int(s,16))
def hex2dec(s): return str(int(s,16))
0
int base = 16;
string s;
cin >> s;
long long bp = 1;
long long ans = 0;
for (int i = s.size() — 1; i >= 0; --i) {
char c = s[i];
if (isdigit©)
ans += (c — '0') * bp;
else
ans += (c — 'A') * bp;
bp *= base;
}
cout
string s;
cin >> s;
long long bp = 1;
long long ans = 0;
for (int i = s.size() — 1; i >= 0; --i) {
char c = s[i];
if (isdigit©)
ans += (c — '0') * bp;
else
ans += (c — 'A') * bp;
bp *= base;
}
cout
0
int base = 16;
string s;
cin s;
long long bp = 1;
long long ans = 0;
for (int i = s.size() — 1; i >= 0; --i) {
char c = s[i];
if (isdigit(c ))
ans += (c — '0') * bp;
else
ans += (c — 'A') * bp;
bp *= base;
}
cout r;
Почему-то парсер не хочет кушать тег source :( Еще ему ужасно не нравятся двойные угловые скобки в cin и cout.
Работает по идее для любой системы счисления с основанием от 1 до 36. Естественно, ans очень быстро переполнится для строки в 100000 байт, в C++ надо использовать длинную арифметику, в питон она встроена.
string s;
cin s;
long long bp = 1;
long long ans = 0;
for (int i = s.size() — 1; i >= 0; --i) {
char c = s[i];
if (isdigit(c ))
ans += (c — '0') * bp;
else
ans += (c — 'A') * bp;
bp *= base;
}
cout r;
Почему-то парсер не хочет кушать тег source :( Еще ему ужасно не нравятся двойные угловые скобки в cin и cout.
Работает по идее для любой системы счисления с основанием от 1 до 36. Естественно, ans очень быстро переполнится для строки в 100000 байт, в C++ надо использовать длинную арифметику, в питон она встроена.
+1
Ооооо — многие из отписавшихся использовали написанные до них функции, встроенные в языки! Нечестно и не спортивно!
+1
php:
function hex2dec2($h) {
$a = array_flip(str_split('0123456789ABCDEF',1));
$l = strlen($h)-1;
for($d=0,$x=$l; $x>=0; $x--)
$d += $a[$h[$x]]*pow(16,$l-$x);
return $d;
}
+1
Еще поправил условие. Давайте обходиться без BigNum-ов, а то в самом деле неинтересно.
0
Впрочем, задача 16-ричного ввода тоже имеет право на существование.
C#:
Интересно, почему большинство авторов просматривают строку с конца. Неужели так проще?
C#:
static long ReadHex(string s) {
long l=0;
foreach(char c in s) l=(l<<4)+(((c+4)%23-6)&15);
return l;
}
Интересно, почему большинство авторов просматривают строку с конца. Неужели так проще?
0
Потому что в случае строчки с начала, вам придется в варианте 99999 + A передавать единицу в самое начало. А конечные разряды не меняются.
0
И где используется, что они не меняются? В одном числе накапливается ответ, в другом держат 16^n, потом второе число на что-то умножают и складывают с первым. Компьютеру всё равно придётся перелопачивать все нули. А в десятичную систему потом переводит добрый дядя…
0
Не посмотрел на код.
Задание — перекодировать строку в строку, а не строку в число :-) Т.е. ваш вариант успешно загнется при строке более 16 байт.
Задание — перекодировать строку в строку, а не строку в число :-) Т.е. ваш вариант успешно загнется при строке более 16 байт.
0
Алгоритм Маркова. 60 правил, * — любой символ.
Кто меньше?
Кто меньше?
b* -> *b
b -> c
a0c -> 0 FIN
a0 -> a
*j -> i*
s*iF -> js*6
diF -> jd6
i0 -> 1
i1 -> 2
i2 -> 3
i3 -> 4
i4 -> 5
i5 -> 6
i6 -> 7
i7 -> 8
i8 -> 9
i9 -> A
iA -> B
iB -> C
iC -> D
iD -> E
iE -> F
iF -> j0
ia -> a1
s9 -> s8i
s8 -> s7i
s7 -> s6i
s6 -> s5i
s5 -> s4i
s4 -> s3i
s3 -> s2i
s2 -> s1i
s1 -> di
*dA -> i*d0
*dB -> i*d1
*dC -> i*d2
*dD -> i*d3
*dE -> i*d4
*dF -> i*d5
d*c -> c*
d0 -> 0d
d1 -> 1s6
d2 -> 3s2
d3 -> 4s8
d4 -> 6s4
d5 -> 8d
d6 -> 9s6
d7 -> Bs2
d8 -> Cs8
d9 -> Es4
aAc -> 10 FIN
aA -> a10d
aB -> a1d1
aC -> a1d2
aD -> a1d3
aE -> a1d4
aF -> a1d5
a*c -> * FIN
a* -> ad*
* -> ab*
+1
Функция на APL:
![image](https://habrastorage.org/r/w1560/storage/habraeffect/a5/f3/a5f3b119817499b1e75cd38d5d664d9c.png)
![image](https://habrastorage.org/storage/habraeffect/a5/f3/a5f3b119817499b1e75cd38d5d664d9c.png)
+1
SQL (Oracle):
)))
SELECT t3.hexval, SUM(t3.el) decval
FROM(
SELECT t2.hexval
,decode(t2.p,'A',10
,decode(t2.p,'B',11
,decode(t2.p,'C',12
,decode(t2.p,'D',13
,decode(t2.p,'E',14
,decode(t2.p,'F',15, to_number(t2.p)
))))))*power(16,length(t2.hexval)-t2.lvl-1) el
FROM(
WITH t as ( SELECT 'DEADBEAF' hexval, '[0-9A-F]' rg FROM dual)
SELECT hexval, regexp_substr (hexval, rg, 1, level) p, level-1 lvl
FROM t
CONNECT BY regexp_substr(hexval, rg, 1, level) IS NOT NULL
) t2
) t3 GROUP BY t3.hexval
)))
0
Машина Тюринга — 33 состояния:
Здесь в каждой строчке — номер состояния и три команды: для символа 0, символа 1 и пробела (его роль играет подчеркивание). Состояние 0 — выход из программы. Команда _S0 (поставить пробел, остаться на ленте и выйти) во всех случаях, кроме одного (состояние 31), соответствует невозможной ситуации.
Цифры записаны четверками бит, подряд. Каретка на самой левой цифре.
; отодвинем на 3 символа влево
1: 0L2 0L5 _L33
2: _S0 _S0 _L3
3: _S0 _S0 _L4
4: _S0 _S0 0R8
5: _S0 _S0 _L6
6: _S0 _S0 _L7
7: _S0 _S0 1R8
8: _R1 _S0 _R8
9: 0L9 1L9 _R10
; начнем делить на 5
10: _R10 _R11 _R18
11: _R12 _R13 _R19
12: _R14 1R15 _R20
13: 1R16 1R17 _R21
14: 1R13 1R14 _R22
15: 0R15 0R16 _R18
16: 0R17 0R13 _R19
17: 0R14 1R15 _R20
; напечатаем остаток и прибавим 5, если надо
18: 0R19 _S0 0R23
19: 0R20 1R20 0R24
20: 0R21 1R21 0R25
21: 1L22 0L23 0R26
22: 0L24 1L24 1R23
23: 1L24 0L25 0R27
24: 1L26 0L27 0R28
25: 0L27 1L27 1R27
26: 0L30 _S0 1R28
27: 1L30 _S0 0L29
28: _S0 _S0 1L29
29: 0L29 1L29 0L30
; Есть ли цифры?
30: _L31 _R18 _L31
31: 0L32 1L32 _S0 ; настоящий стоп
32: 0L32 1L32 _R1 ; конец цикла
33: 0L9 1L9 _L33 ; забытое состояние между 8 и 9
Здесь в каждой строчке — номер состояния и три команды: для символа 0, символа 1 и пробела (его роль играет подчеркивание). Состояние 0 — выход из программы. Команда _S0 (поставить пробел, остаться на ленте и выйти) во всех случаях, кроме одного (состояние 31), соответствует невозможной ситуации.
Цифры записаны четверками бит, подряд. Каретка на самой левой цифре.
+1
sed:
:a;s;F;Ex;;s;E;Dx;;s;D;Cx;;s;C;Bx;;s;B;Ax;; s;A;9x;;s;9;8x;;s;8;7x;;s;7;6x;;s;6;5x;; s;5;4x;;s;4;3x;;s;3;2x;;s;2;1x;;s;1;0x;; s;0;;;s;y;xxxxxxxxxxxxxxxx;g;y;x;y;;/[0-9A-F]/ba; :s;s;y\{10\};x;g; s;y\{9\};9;;s;y\{8\};8;;s;y\{7\};7;;s;y\{6\};6;; s;y\{5\};5;;s;y\{4\};4;;s;y\{3\};3;;s;y\{2\};2;;s;y\{1\};1;; y;x;y;;/y/bs;
+1
Sign up to leave a comment.
Преобразование hex->dec — ищем красивые решения