1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
// Copyright 2009 the Sputnik authors. All rights reserved.
// This code is governed by the BSD license found in the LICENSE file.
/*---
info: >
If S contains any character that is not a radix-R digit,
then let Z be the substring of S consisting of all characters before
the first such character; otherwise, let Z be S
es5id: 15.1.2.2_A6.1_T4
description: Complex test. Radix-R notation in [0..9, A-Z]
---*/
//CHECK#
var R_digit = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"];
for (var i = 2; i <= 35; i++) {
if (parseInt(R_digit[i - 2] + R_digit[i - 1], i) !== i - 1) {
$ERROR('#' + i + ': ');
}
}
|
