Grammalecte  Hex Artifact Content

Artifact d8c3ab3e0df56bd487c4fd4d7f356075bc208cf86400893ec7f143bc6e14a475:


0000: 2f 2f 20 53 54 52 49 4e 47 20 54 52 41 4e 53 46  // STRING TRANSF
0010: 4f 52 4d 41 54 49 4f 4e 0a 0a 2f 2a 20 6a 73 68  ORMATION../* jsh
0020: 69 6e 74 20 65 73 76 65 72 73 69 6f 6e 3a 36 2c  int esversion:6,
0030: 20 2d 57 30 39 37 20 2a 2f 0a 2f 2a 20 6a 73 6c   -W097 */./* jsl
0040: 69 6e 74 20 65 73 76 65 72 73 69 6f 6e 3a 36 20  int esversion:6 
0050: 2a 2f 0a 2f 2a 20 67 6c 6f 62 61 6c 20 65 78 70  */./* global exp
0060: 6f 72 74 73 2c 20 63 6f 6e 73 6f 6c 65 20 2a 2f  orts, console */
0070: 0a 0a 22 75 73 65 20 73 74 72 69 63 74 22 3b 0a  .."use strict";.
0080: 0a 0a 2f 2f 20 4e 6f 74 65 3a 20 34 38 20 69 73  ..// Note: 48 is
0090: 20 74 68 65 20 41 53 43 49 49 20 63 6f 64 65 20   the ASCII code 
00a0: 66 6f 72 20 22 30 22 0a 0a 76 61 72 20 73 74 72  for "0"..var str
00b0: 5f 74 72 61 6e 73 66 6f 72 6d 20 3d 20 7b 0a 0a  _transform = {..
00c0: 20 20 20 20 67 65 74 4e 67 72 61 6d 73 3a 20 66      getNgrams: f
00d0: 75 6e 63 74 69 6f 6e 20 28 73 57 6f 72 64 2c 20  unction (sWord, 
00e0: 6e 3d 32 29 20 7b 0a 20 20 20 20 20 20 20 20 6c  n=2) {.        l
00f0: 65 74 20 6c 4e 67 72 61 6d 73 20 3d 20 5b 5d 3b  et lNgrams = [];
0100: 0a 20 20 20 20 20 20 20 20 66 6f 72 20 28 6c 65  .        for (le
0110: 74 20 69 3d 30 3b 20 20 69 20 3c 3d 20 73 57 6f  t i=0;  i <= sWo
0120: 72 64 2e 6c 65 6e 67 74 68 20 2d 20 6e 3b 20 20  rd.length - n;  
0130: 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 20  i++) {.         
0140: 20 20 20 6c 4e 67 72 61 6d 73 2e 70 75 73 68 28     lNgrams.push(
0150: 73 57 6f 72 64 2e 73 6c 69 63 65 28 69 2c 20 69  sWord.slice(i, i
0160: 2b 6e 29 29 3b 0a 20 20 20 20 20 20 20 20 7d 0a  +n));.        }.
0170: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 6c          return l
0180: 4e 67 72 61 6d 73 3b 0a 20 20 20 20 7d 2c 0a 0a  Ngrams;.    },..
0190: 20 20 20 20 6c 6f 6e 67 65 73 74 43 6f 6d 6d 6f      longestCommo
01a0: 6e 53 75 62 73 74 72 69 6e 67 3a 20 66 75 6e 63  nSubstring: func
01b0: 74 69 6f 6e 20 28 73 74 72 69 6e 67 31 2c 20 73  tion (string1, s
01c0: 74 72 69 6e 67 32 29 20 7b 0a 20 20 20 20 20 20  tring2) {.      
01d0: 20 20 2f 2f 20 68 74 74 70 73 3a 2f 2f 65 6e 2e    // https://en.
01e0: 77 69 6b 69 62 6f 6f 6b 73 2e 6f 72 67 2f 77 69  wikibooks.org/wi
01f0: 6b 69 2f 41 6c 67 6f 72 69 74 68 6d 5f 49 6d 70  ki/Algorithm_Imp
0200: 6c 65 6d 65 6e 74 61 74 69 6f 6e 2f 53 74 72 69  lementation/Stri
0210: 6e 67 73 2f 4c 6f 6e 67 65 73 74 5f 63 6f 6d 6d  ngs/Longest_comm
0220: 6f 6e 5f 73 75 62 73 74 72 69 6e 67 0a 20 20 20  on_substring.   
0230: 20 20 20 20 20 2f 2f 20 75 6e 74 65 73 74 65 64       // untested
0240: 0a 0a 20 20 20 20 20 20 20 20 2f 2f 20 69 6e 69  ..        // ini
0250: 74 20 6d 61 78 20 76 61 6c 75 65 0a 20 20 20 20  t max value.    
0260: 20 20 20 20 6c 65 74 20 6c 6f 6e 67 65 73 74 43      let longestC
0270: 6f 6d 6d 6f 6e 53 75 62 73 74 72 69 6e 67 20 3d  ommonSubstring =
0280: 20 30 3b 0a 20 20 20 20 20 20 20 20 2f 2f 20 69   0;.        // i
0290: 6e 69 74 20 32 44 20 61 72 72 61 79 20 77 69 74  nit 2D array wit
02a0: 68 20 30 0a 20 20 20 20 20 20 20 20 6c 65 74 20  h 0.        let 
02b0: 74 61 62 6c 65 20 3d 20 5b 5d 2c 0a 20 20 20 20  table = [],.    
02c0: 20 20 20 20 20 20 20 20 6c 65 6e 31 20 3d 20 73          len1 = s
02d0: 74 72 69 6e 67 31 2e 6c 65 6e 67 74 68 2c 0a 20  tring1.length,. 
02e0: 20 20 20 20 20 20 20 20 20 20 20 6c 65 6e 32 20             len2 
02f0: 3d 20 73 74 72 69 6e 67 32 2e 6c 65 6e 67 74 68  = string2.length
0300: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 6f  ,.            ro
0310: 77 2c 20 63 6f 6c 3b 0a 20 20 20 20 20 20 20 20  w, col;.        
0320: 66 6f 72 20 28 72 6f 77 20 3d 20 30 3b 20 72 6f  for (row = 0; ro
0330: 77 20 3c 3d 20 6c 65 6e 31 3b 20 72 6f 77 2b 2b  w <= len1; row++
0340: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) {.            
0350: 74 61 62 6c 65 5b 72 6f 77 5d 20 3d 20 5b 5d 3b  table[row] = [];
0360: 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72  .            for
0370: 20 28 63 6f 6c 20 3d 20 30 3b 20 63 6f 6c 20 3c   (col = 0; col <
0380: 3d 20 6c 65 6e 32 3b 20 63 6f 6c 2b 2b 29 20 7b  = len2; col++) {
0390: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
03a0: 20 74 61 62 6c 65 5b 72 6f 77 5d 5b 63 6f 6c 5d   table[row][col]
03b0: 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20 20   = 0;.          
03c0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20    }.        }.  
03d0: 20 20 20 20 20 20 2f 2f 20 66 69 6c 6c 20 74 61        // fill ta
03e0: 62 6c 65 0a 20 20 20 20 20 20 20 20 6c 65 74 20  ble.        let 
03f0: 69 2c 20 6a 3b 0a 20 20 20 20 20 20 20 20 66 6f  i, j;.        fo
0400: 72 20 28 69 20 3d 20 30 3b 20 20 69 20 3c 20 6c  r (i = 0;  i < l
0410: 65 6e 31 3b 20 20 69 2b 2b 29 20 7b 0a 20 20 20  en1;  i++) {.   
0420: 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 6a 20           for (j 
0430: 3d 20 30 3b 20 20 6a 20 3c 20 6c 65 6e 32 3b 20  = 0;  j < len2; 
0440: 20 6a 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20   j++) {.        
0450: 20 20 20 20 20 20 20 20 69 66 20 28 73 74 72 69          if (stri
0460: 6e 67 31 5b 69 5d 20 3d 3d 3d 20 73 74 72 69 6e  ng1[i] === strin
0470: 67 32 5b 6a 5d 29 20 7b 0a 20 20 20 20 20 20 20  g2[j]) {.       
0480: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20               if 
0490: 28 74 61 62 6c 65 5b 69 5d 5b 6a 5d 20 3d 3d 3d  (table[i][j] ===
04a0: 20 30 29 7b 0a 20 20 20 20 20 20 20 20 20 20 20   0){.           
04b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62               tab
04c0: 6c 65 5b 69 2b 31 5d 5b 6a 2b 31 5d 20 3d 20 31  le[i+1][j+1] = 1
04d0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
04e0: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0500: 20 20 20 20 20 20 20 74 61 62 6c 65 5b 69 2b 31         table[i+1
0510: 5d 5b 6a 2b 31 5d 20 3d 20 74 61 62 6c 65 5b 69  ][j+1] = table[i
0520: 5d 5b 6a 5d 20 2b 20 31 3b 0a 20 20 20 20 20 20  ][j] + 1;.      
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a                }.
0540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0550: 20 20 20 20 69 66 20 28 74 61 62 6c 65 5b 69 2b      if (table[i+
0560: 31 5d 5b 6a 2b 31 5d 20 3e 20 6c 6f 6e 67 65 73  1][j+1] > longes
0570: 74 43 6f 6d 6d 6f 6e 53 75 62 73 74 72 69 6e 67  tCommonSubstring
0580: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) {.            
0590: 20 20 20 20 20 20 20 20 20 20 20 20 6c 6f 6e 67              long
05a0: 65 73 74 43 6f 6d 6d 6f 6e 53 75 62 73 74 72 69  estCommonSubstri
05b0: 6e 67 20 3d 20 74 61 62 6c 65 5b 69 2b 31 5d 5b  ng = table[i+1][
05c0: 6a 2b 31 5d 3b 0a 20 20 20 20 20 20 20 20 20 20  j+1];.          
05d0: 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20            }.    
05e0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c              } el
05f0: 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  se {.           
0600: 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 5b 69           table[i
0610: 2b 31 5d 5b 6a 2b 31 5d 20 3d 20 30 3b 0a 20 20  +1][j+1] = 0;.  
0620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a                }.
0630: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20              }.  
0640: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
0650: 72 65 74 75 72 6e 20 6c 6f 6e 67 65 73 74 43 6f  return longestCo
0660: 6d 6d 6f 6e 53 75 62 73 74 72 69 6e 67 3b 0a 20  mmonSubstring;. 
0670: 20 20 20 7d 2c 0a 0a 20 20 20 20 64 69 73 74 61     },..    dista
0680: 6e 63 65 44 61 6d 65 72 61 75 4c 65 76 65 6e 73  nceDamerauLevens
0690: 68 74 65 69 6e 32 3a 20 66 75 6e 63 74 69 6f 6e  htein2: function
06a0: 20 28 73 31 2c 20 73 32 29 20 7b 0a 20 20 20 20   (s1, s2) {.    
06b0: 20 20 20 20 2f 2f 20 64 69 73 74 61 6e 63 65 20      // distance 
06c0: 6f 66 20 44 61 6d 65 72 61 75 2d 4c 65 76 65 6e  of Damerau-Leven
06d0: 73 68 74 65 69 6e 20 62 65 74 77 65 65 6e 20 3c  shtein between <
06e0: 73 31 3e 20 61 6e 64 20 3c 73 32 3e 0a 20 20 20  s1> and <s2>.   
06f0: 20 20 20 20 20 2f 2f 20 68 74 74 70 73 3a 2f 2f       // https://
0700: 66 72 2e 77 69 6b 69 70 65 64 69 61 2e 6f 72 67  fr.wikipedia.org
0710: 2f 77 69 6b 69 2f 44 69 73 74 61 6e 63 65 5f 64  /wiki/Distance_d
0720: 65 5f 44 61 6d 65 72 61 75 2d 4c 65 76 65 6e 73  e_Damerau-Levens
0730: 68 74 65 69 6e 0a 20 20 20 20 20 20 20 20 74 72  htein.        tr
0740: 79 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  y {.            
0750: 6c 65 74 20 6e 4c 65 6e 31 20 3d 20 73 31 2e 6c  let nLen1 = s1.l
0760: 65 6e 67 74 68 3b 0a 20 20 20 20 20 20 20 20 20  ength;.         
0770: 20 20 20 6c 65 74 20 6e 4c 65 6e 32 20 3d 20 73     let nLen2 = s
0780: 32 2e 6c 65 6e 67 74 68 3b 0a 20 20 20 20 20 20  2.length;.      
0790: 20 20 20 20 20 20 6c 65 74 20 6d 61 74 72 69 78        let matrix
07a0: 20 3d 20 5b 5d 3b 0a 20 20 20 20 20 20 20 20 20   = [];.         
07b0: 20 20 20 66 6f 72 20 28 6c 65 74 20 69 20 3d 20     for (let i = 
07c0: 30 3b 20 20 69 20 3c 3d 20 6e 4c 65 6e 31 3b 20  0;  i <= nLen1; 
07d0: 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20   i++) {.        
07e0: 20 20 20 20 20 20 20 20 6d 61 74 72 69 78 5b 69          matrix[i
07f0: 5d 20 3d 20 6e 65 77 20 41 72 72 61 79 28 6e 4c  ] = new Array(nL
0800: 65 6e 32 20 2b 20 31 29 3b 0a 20 20 20 20 20 20  en2 + 1);.      
0810: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
0820: 20 20 20 20 66 6f 72 20 28 6c 65 74 20 69 20 3d      for (let i =
0830: 20 30 3b 20 20 69 20 3c 3d 20 6e 4c 65 6e 31 3b   0;  i <= nLen1;
0840: 20 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20    i++) {.       
0850: 20 20 20 20 20 20 20 20 20 6d 61 74 72 69 78 5b           matrix[
0860: 69 5d 5b 30 5d 20 3d 20 69 3b 0a 20 20 20 20 20  i][0] = i;.     
0870: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
0880: 20 20 20 20 20 66 6f 72 20 28 6c 65 74 20 6a 20       for (let j 
0890: 3d 20 30 3b 20 20 6a 20 3c 3d 20 6e 4c 65 6e 32  = 0;  j <= nLen2
08a0: 3b 20 20 6a 2b 2b 29 20 7b 0a 20 20 20 20 20 20  ;  j++) {.      
08b0: 20 20 20 20 20 20 20 20 20 20 6d 61 74 72 69 78            matrix
08c0: 5b 30 5d 5b 6a 5d 20 3d 20 6a 3b 0a 20 20 20 20  [0][j] = j;.    
08d0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
08e0: 20 20 20 20 20 20 66 6f 72 20 28 6c 65 74 20 69        for (let i
08f0: 20 3d 20 31 3b 20 20 69 20 3c 3d 20 6e 4c 65 6e   = 1;  i <= nLen
0900: 31 3b 20 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20  1;  i++) {.     
0910: 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28             for (
0920: 6c 65 74 20 6a 20 3d 20 31 3b 20 20 6a 20 3c 3d  let j = 1;  j <=
0930: 20 6e 4c 65 6e 32 3b 20 20 6a 2b 2b 29 20 7b 0a   nLen2;  j++) {.
0940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0950: 20 20 20 20 6c 65 74 20 6e 43 6f 73 74 20 3d 20      let nCost = 
0960: 28 73 31 5b 69 5d 20 3d 3d 3d 20 73 32 5b 6a 5d  (s1[i] === s2[j]
0970: 29 20 3f 20 30 20 3a 20 31 3b 0a 20 20 20 20 20  ) ? 0 : 1;.     
0980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d                 m
0990: 61 74 72 69 78 5b 69 5d 5b 6a 5d 20 3d 20 4d 61  atrix[i][j] = Ma
09a0: 74 68 2e 6d 69 6e 28 0a 20 20 20 20 20 20 20 20  th.min(.        
09b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
09c0: 6d 61 74 72 69 78 5b 69 2d 31 5d 5b 6a 5d 20 2b  matrix[i-1][j] +
09d0: 20 31 2c 20 20 20 20 20 20 20 20 20 2f 2f 20 44   1,         // D
09e0: 65 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20  eletion.        
09f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a00: 6d 61 74 72 69 78 5b 69 5d 5b 6a 2d 31 5d 20 2b  matrix[i][j-1] +
0a10: 20 31 2c 20 20 20 20 20 20 20 20 20 2f 2f 20 49   1,         // I
0a20: 6e 73 65 72 74 69 6f 6e 0a 20 20 20 20 20 20 20  nsertion.       
0a30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a40: 20 6d 61 74 72 69 78 5b 69 2d 31 5d 5b 6a 2d 31   matrix[i-1][j-1
0a50: 5d 20 2b 20 6e 43 6f 73 74 20 20 20 20 2f 2f 20  ] + nCost    // 
0a60: 53 75 62 73 74 69 74 75 74 69 6f 6e 0a 20 20 20  Substitution.   
0a70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0a80: 20 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20   );.            
0a90: 20 20 20 20 20 20 20 20 69 66 20 28 69 20 3e 20          if (i > 
0aa0: 31 20 26 26 20 6a 20 3e 20 31 20 26 26 20 73 31  1 && j > 1 && s1
0ab0: 5b 69 5d 20 3d 3d 20 73 32 5b 6a 2d 31 5d 20 26  [i] == s2[j-1] &
0ac0: 26 20 73 31 5b 69 2d 31 5d 20 3d 3d 20 73 32 5b  & s1[i-1] == s2[
0ad0: 6a 5d 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  j]) {.          
0ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61                ma
0af0: 74 72 69 78 5b 69 5d 5b 6a 5d 20 3d 20 4d 61 74  trix[i][j] = Mat
0b00: 68 2e 6d 69 6e 28 6d 61 74 72 69 78 5b 69 5d 5b  h.min(matrix[i][
0b10: 6a 5d 2c 20 6d 61 74 72 69 78 5b 69 2d 32 5d 5b  j], matrix[i-2][
0b20: 6a 2d 32 5d 20 2b 20 6e 43 6f 73 74 29 3b 20 20  j-2] + nCost);  
0b30: 2f 2f 20 54 72 61 6e 73 70 6f 73 69 74 69 6f 6e  // Transposition
0b40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0b50: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
0b60: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
0b70: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20       }.         
0b80: 20 20 20 72 65 74 75 72 6e 20 6d 61 74 72 69 78     return matrix
0b90: 5b 6e 4c 65 6e 31 5d 5b 6e 4c 65 6e 32 5d 3b 0a  [nLen1][nLen2];.
0ba0: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
0bb0: 20 20 63 61 74 63 68 20 28 65 29 20 7b 0a 20 20    catch (e) {.  
0bc0: 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 6f 6c            consol
0bd0: 65 2e 65 72 72 6f 72 28 65 29 3b 0a 20 20 20 20  e.error(e);.    
0be0: 20 20 20 20 7d 0a 20 20 20 20 7d 2c 0a 0a 20 20      }.    },..  
0bf0: 20 20 64 69 73 74 61 6e 63 65 44 61 6d 65 72 61    distanceDamera
0c00: 75 4c 65 76 65 6e 73 68 74 65 69 6e 3a 20 66 75  uLevenshtein: fu
0c10: 6e 63 74 69 6f 6e 20 28 73 31 2c 20 73 32 29 20  nction (s1, s2) 
0c20: 7b 0a 20 20 20 20 20 20 20 20 2f 2f 20 64 69 73  {.        // dis
0c30: 74 61 6e 63 65 20 6f 66 20 44 61 6d 65 72 61 75  tance of Damerau
0c40: 2d 4c 65 76 65 6e 73 68 74 65 69 6e 20 62 65 74  -Levenshtein bet
0c50: 77 65 65 6e 20 3c 73 31 3e 20 61 6e 64 20 3c 73  ween <s1> and <s
0c60: 32 3e 0a 20 20 20 20 20 20 20 20 2f 2f 20 68 74  2>.        // ht
0c70: 74 70 73 3a 2f 2f 66 72 2e 77 69 6b 69 70 65 64  tps://fr.wikiped
0c80: 69 61 2e 6f 72 67 2f 77 69 6b 69 2f 44 69 73 74  ia.org/wiki/Dist
0c90: 61 6e 63 65 5f 64 65 5f 44 61 6d 65 72 61 75 2d  ance_de_Damerau-
0ca0: 4c 65 76 65 6e 73 68 74 65 69 6e 0a 20 20 20 20  Levenshtein.    
0cb0: 20 20 20 20 74 72 79 20 7b 0a 20 20 20 20 20 20      try {.      
0cc0: 20 20 20 20 20 20 6c 65 74 20 6e 4c 65 6e 31 20        let nLen1 
0cd0: 3d 20 73 31 2e 6c 65 6e 67 74 68 3b 0a 20 20 20  = s1.length;.   
0ce0: 20 20 20 20 20 20 20 20 20 6c 65 74 20 6e 4c 65           let nLe
0cf0: 6e 32 20 3d 20 73 32 2e 6c 65 6e 67 74 68 3b 0a  n2 = s2.length;.
0d00: 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 74 20              let 
0d10: 49 4e 46 20 3d 20 6e 4c 65 6e 31 20 2b 20 6e 4c  INF = nLen1 + nL
0d20: 65 6e 32 3b 0a 20 20 20 20 20 20 20 20 20 20 20  en2;.           
0d30: 20 6c 65 74 20 6d 61 74 72 69 78 20 3d 20 5b 5d   let matrix = []
0d40: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65  ;.            le
0d50: 74 20 73 64 20 3d 20 7b 7d 3b 0a 20 20 20 20 20  t sd = {};.     
0d60: 20 20 20 20 20 20 20 66 6f 72 20 28 6c 65 74 20         for (let 
0d70: 69 20 3d 20 30 3b 20 69 20 3c 20 6e 4c 65 6e 31  i = 0; i < nLen1
0d80: 2b 32 3b 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20  +2; i++) {.     
0d90: 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 72 69             matri
0da0: 78 5b 69 5d 20 3d 20 6e 65 77 20 41 72 72 61 79  x[i] = new Array
0db0: 28 6e 4c 65 6e 32 2b 32 29 3b 0a 20 20 20 20 20  (nLen2+2);.     
0dc0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
0dd0: 20 20 20 20 20 6d 61 74 72 69 78 5b 30 5d 5b 30       matrix[0][0
0de0: 5d 20 3d 20 49 4e 46 3b 0a 20 20 20 20 20 20 20  ] = INF;.       
0df0: 20 20 20 20 20 66 6f 72 20 28 6c 65 74 20 69 20       for (let i 
0e00: 3d 20 30 3b 20 69 20 3c 3d 20 6e 4c 65 6e 31 3b  = 0; i <= nLen1;
0e10: 20 69 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20   i++) {.        
0e20: 20 20 20 20 20 20 20 20 6d 61 74 72 69 78 5b 69          matrix[i
0e30: 2b 31 5d 5b 31 5d 20 3d 20 69 3b 0a 20 20 20 20  +1][1] = i;.    
0e40: 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 74 72              matr
0e50: 69 78 5b 69 2b 31 5d 5b 30 5d 20 3d 20 49 4e 46  ix[i+1][0] = INF
0e60: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
0e70: 20 20 73 64 5b 73 31 5b 69 5d 5d 20 3d 20 30 3b    sd[s1[i]] = 0;
0e80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20  .            }. 
0e90: 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28             for (
0ea0: 6c 65 74 20 6a 20 3d 20 30 3b 20 6a 20 3c 3d 20  let j = 0; j <= 
0eb0: 6e 4c 65 6e 32 3b 20 6a 2b 2b 29 20 7b 0a 20 20  nLen2; j++) {.  
0ec0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61                ma
0ed0: 74 72 69 78 5b 31 5d 5b 6a 2b 31 5d 20 3d 20 6a  trix[1][j+1] = j
0ee0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.              
0ef0: 20 20 6d 61 74 72 69 78 5b 30 5d 5b 6a 2b 31 5d    matrix[0][j+1]
0f00: 20 3d 20 49 4e 46 3b 0a 20 20 20 20 20 20 20 20   = INF;.        
0f10: 20 20 20 20 20 20 20 20 73 64 5b 73 32 5b 6a 5d          sd[s2[j]
0f20: 5d 20 3d 20 30 3b 0a 20 20 20 20 20 20 20 20 20  ] = 0;.         
0f30: 20 20 20 7d 0a 0a 20 20 20 20 20 20 20 20 20 20     }..          
0f40: 20 20 66 6f 72 20 28 6c 65 74 20 69 20 3d 20 31    for (let i = 1
0f50: 3b 20 69 20 3c 3d 20 6e 4c 65 6e 31 3b 20 69 2b  ; i <= nLen1; i+
0f60: 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  +) {.           
0f70: 20 20 20 20 20 6c 65 74 20 44 42 20 3d 20 30 3b       let DB = 0;
0f80: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0f90: 20 66 6f 72 20 28 6c 65 74 20 6a 20 3d 20 31 3b   for (let j = 1;
0fa0: 20 6a 20 3c 3d 20 6e 4c 65 6e 32 3b 20 6a 2b 2b   j <= nLen2; j++
0fb0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  ) {.            
0fc0: 20 20 20 20 20 20 20 20 6c 65 74 20 69 31 20 3d          let i1 =
0fd0: 20 73 64 5b 73 32 5b 6a 2d 31 5d 5d 3b 0a 20 20   sd[s2[j-1]];.  
0fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0ff0: 20 20 6c 65 74 20 6a 31 20 3d 20 44 42 3b 0a 20    let j1 = DB;. 
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1010: 20 20 20 69 66 20 28 73 31 5b 69 2d 31 5d 20 3d     if (s1[i-1] =
1020: 3d 3d 20 73 32 5b 6a 2d 31 5d 29 20 7b 0a 20 20  == s2[j-1]) {.  
1030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1040: 20 20 20 20 20 20 6d 61 74 72 69 78 5b 69 2b 31        matrix[i+1
1050: 5d 5b 6a 2b 31 5d 20 3d 20 6d 61 74 72 69 78 5b  ][j+1] = matrix[
1060: 69 5d 5b 6a 5d 3b 0a 20 20 20 20 20 20 20 20 20  i][j];.         
1070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44                 D
1080: 42 20 3d 20 6a 3b 0a 20 20 20 20 20 20 20 20 20  B = j;.         
1090: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20             }.   
10a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10b0: 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20   else {.        
10c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10d0: 6d 61 74 72 69 78 5b 69 2b 31 5d 5b 6a 2b 31 5d  matrix[i+1][j+1]
10e0: 20 3d 20 4d 61 74 68 2e 6d 69 6e 28 6d 61 74 72   = Math.min(matr
10f0: 69 78 5b 69 5d 5b 6a 5d 2c 20 4d 61 74 68 2e 6d  ix[i][j], Math.m
1100: 69 6e 28 6d 61 74 72 69 78 5b 69 2b 31 5d 5b 6a  in(matrix[i+1][j
1110: 5d 2c 20 6d 61 74 72 69 78 5b 69 5d 5b 6a 2b 31  ], matrix[i][j+1
1120: 5d 29 29 20 2b 20 31 3b 0a 20 20 20 20 20 20 20  ])) + 1;.       
1130: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20               }. 
1140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1150: 20 20 20 6d 61 74 72 69 78 5b 69 2b 31 5d 5b 6a     matrix[i+1][j
1160: 2b 31 5d 20 3d 20 4d 61 74 68 2e 6d 69 6e 28 6d  +1] = Math.min(m
1170: 61 74 72 69 78 5b 69 2b 31 5d 5b 6a 2b 31 5d 2c  atrix[i+1][j+1],
1180: 20 6d 61 74 72 69 78 5b 69 31 5d 20 3f 20 6d 61   matrix[i1] ? ma
1190: 74 72 69 78 5b 69 31 5d 5b 6a 31 5d 20 2b 20 28  trix[i1][j1] + (
11a0: 69 2d 69 31 2d 31 29 20 2b 20 31 20 2b 20 28 6a  i-i1-1) + 1 + (j
11b0: 2d 6a 31 2d 31 29 20 3a 20 49 6e 66 69 6e 69 74  -j1-1) : Infinit
11c0: 79 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  y);.            
11d0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20      }.          
11e0: 20 20 20 20 20 20 73 64 5b 73 31 5b 69 2d 31 5d        sd[s1[i-1]
11f0: 5d 20 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 20  ] = i;.         
1200: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20     }.           
1210: 20 72 65 74 75 72 6e 20 6d 61 74 72 69 78 5b 6e   return matrix[n
1220: 4c 65 6e 31 2b 31 5d 5b 6e 4c 65 6e 32 2b 31 5d  Len1+1][nLen2+1]
1230: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20  ;.        }.    
1240: 20 20 20 20 63 61 74 63 68 20 28 65 29 20 7b 0a      catch (e) {.
1250: 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73              cons
1260: 6f 6c 65 2e 65 72 72 6f 72 28 65 29 3b 0a 20 20  ole.error(e);.  
1270: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 2c 0a 0a        }.    },..
1280: 20 20 20 20 73 68 6f 77 44 69 73 74 61 6e 63 65      showDistance
1290: 20 28 73 31 2c 20 73 32 29 20 7b 0a 20 20 20 20   (s1, s2) {.    
12a0: 20 20 20 20 63 6f 6e 73 6f 6c 65 2e 6c 6f 67 28      console.log(
12b0: 60 44 69 73 74 61 6e 63 65 3a 20 24 7b 73 31 7d  `Distance: ${s1}
12c0: 20 2f 20 24 7b 73 32 7d 20 3d 20 24 7b 74 68 69   / ${s2} = ${thi
12d0: 73 2e 64 69 73 74 61 6e 63 65 44 61 6d 65 72 61  s.distanceDamera
12e0: 75 4c 65 76 65 6e 73 68 74 65 69 6e 28 73 31 2c  uLevenshtein(s1,
12f0: 20 73 32 29 7d 29 60 29 3b 0a 20 20 20 20 7d 2c   s2)})`);.    },
1300: 0a 0a 20 20 20 20 2f 2f 20 53 75 66 66 69 78 20  ..    // Suffix 
1310: 6f 6e 6c 79 0a 20 20 20 20 64 65 66 69 6e 65 53  only.    defineS
1320: 75 66 66 69 78 43 6f 64 65 3a 20 66 75 6e 63 74  uffixCode: funct
1330: 69 6f 6e 20 28 73 46 6c 65 78 2c 20 73 53 74 65  ion (sFlex, sSte
1340: 6d 29 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 0a  m) {.        /*.
1350: 20 20 20 20 20 20 20 20 20 20 20 20 52 65 74 75              Retu
1360: 72 6e 73 20 61 20 73 74 72 69 6e 67 20 64 65 66  rns a string def
1370: 69 6e 69 6e 67 20 68 6f 77 20 74 6f 20 67 65 74  ining how to get
1380: 20 73 74 65 6d 20 66 72 6f 6d 20 66 6c 65 78 69   stem from flexi
1390: 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  on.             
13a0: 20 20 20 22 6e 28 73 66 78 29 22 0a 20 20 20 20     "n(sfx)".    
13b0: 20 20 20 20 20 20 20 20 77 69 74 68 20 6e 3a 20          with n: 
13c0: 61 20 63 68 61 72 20 77 69 74 68 20 6e 75 6d 65  a char with nume
13d0: 72 69 63 20 6d 65 61 6e 69 6e 67 2c 20 22 30 22  ric meaning, "0"
13e0: 20 3d 20 30 2c 20 22 31 22 20 3d 20 31 2c 20 2e   = 0, "1" = 1, .
13f0: 2e 2e 20 22 3a 22 20 3d 20 31 30 2c 20 65 74 63  .. ":" = 10, etc
1400: 2e 20 28 53 65 65 20 41 53 43 49 49 20 74 61 62  . (See ASCII tab
1410: 6c 65 2e 29 20 53 61 79 73 20 68 6f 77 20 6d 61  le.) Says how ma
1420: 6e 79 20 6c 65 74 74 65 72 73 20 74 6f 20 73 74  ny letters to st
1430: 72 69 70 20 66 72 6f 6d 20 66 6c 65 78 69 6f 6e  rip from flexion
1440: 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ..              
1450: 20 20 20 73 66 78 20 5b 6f 70 74 69 6f 6e 61 6c     sfx [optional
1460: 5d 3a 20 73 74 72 69 6e 67 20 74 6f 20 61 64 64  ]: string to add
1470: 20 6f 6e 20 66 6c 65 78 69 6f 6e 0a 20 20 20 20   on flexion.    
1480: 20 20 20 20 20 20 20 20 45 78 61 6d 70 6c 65 73          Examples
1490: 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  :.              
14a0: 20 20 22 30 22 3a 20 73 74 72 69 70 73 20 6e 6f    "0": strips no
14b0: 74 68 69 6e 67 2c 20 61 64 64 73 20 6e 6f 74 68  thing, adds noth
14c0: 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20  ing.            
14d0: 20 20 20 20 22 31 65 72 22 3a 20 73 74 72 69 70      "1er": strip
14e0: 73 20 31 20 6c 65 74 74 65 72 2c 20 61 64 64 73  s 1 letter, adds
14f0: 20 22 65 72 22 0a 20 20 20 20 20 20 20 20 20 20   "er".          
1500: 20 20 20 20 20 20 22 32 22 3a 20 73 74 72 69 70        "2": strip
1510: 73 20 32 20 6c 65 74 74 65 72 73 2c 20 61 64 64  s 2 letters, add
1520: 73 20 6e 6f 74 68 69 6e 67 0a 20 20 20 20 20 20  s nothing.      
1530: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 20    */.        if 
1540: 28 73 46 6c 65 78 20 3d 3d 20 73 53 74 65 6d 29  (sFlex == sStem)
1550: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72   {.            r
1560: 65 74 75 72 6e 20 22 30 22 3b 0a 20 20 20 20 20  eturn "0";.     
1570: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 6c 65 74     }.        let
1580: 20 6a 53 66 78 20 3d 20 30 3b 0a 20 20 20 20 20   jSfx = 0;.     
1590: 20 20 20 66 6f 72 20 28 6c 65 74 20 69 20 3d 20     for (let i = 
15a0: 30 3b 20 20 69 20 3c 20 4d 61 74 68 2e 6d 69 6e  0;  i < Math.min
15b0: 28 73 46 6c 65 78 2e 6c 65 6e 67 74 68 2c 20 73  (sFlex.length, s
15c0: 53 74 65 6d 2e 6c 65 6e 67 74 68 29 3b 20 20 69  Stem.length);  i
15d0: 2b 2b 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  ++) {.          
15e0: 20 20 69 66 20 28 73 46 6c 65 78 5b 69 5d 20 21    if (sFlex[i] !
15f0: 3d 3d 20 73 53 74 65 6d 5b 69 5d 29 20 7b 0a 20  == sStem[i]) {. 
1600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62                 b
1610: 72 65 61 6b 3b 0a 20 20 20 20 20 20 20 20 20 20  reak;.          
1620: 20 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20    }.            
1630: 6a 53 66 78 20 2b 3d 20 31 3b 0a 20 20 20 20 20  jSfx += 1;.     
1640: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 72 65 74     }.        ret
1650: 75 72 6e 20 53 74 72 69 6e 67 2e 66 72 6f 6d 43  urn String.fromC
1660: 68 61 72 43 6f 64 65 28 73 46 6c 65 78 2e 6c 65  harCode(sFlex.le
1670: 6e 67 74 68 2d 6a 53 66 78 2b 34 38 29 20 2b 20  ngth-jSfx+48) + 
1680: 73 53 74 65 6d 2e 73 6c 69 63 65 28 6a 53 66 78  sStem.slice(jSfx
1690: 29 3b 0a 20 20 20 20 7d 2c 0a 0a 20 20 20 20 63  );.    },..    c
16a0: 68 61 6e 67 65 57 6f 72 64 57 69 74 68 53 75 66  hangeWordWithSuf
16b0: 66 69 78 43 6f 64 65 3a 20 66 75 6e 63 74 69 6f  fixCode: functio
16c0: 6e 20 28 73 57 6f 72 64 2c 20 73 53 66 78 43 6f  n (sWord, sSfxCo
16d0: 64 65 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66  de) {.        if
16e0: 20 28 73 53 66 78 43 6f 64 65 20 3d 3d 20 22 30   (sSfxCode == "0
16f0: 22 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20  ") {.           
1700: 20 72 65 74 75 72 6e 20 73 57 6f 72 64 3b 0a 20   return sWord;. 
1710: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20         }.       
1720: 20 72 65 74 75 72 6e 20 73 53 66 78 43 6f 64 65   return sSfxCode
1730: 5b 30 5d 20 3d 3d 20 27 30 27 20 3f 20 73 57 6f  [0] == '0' ? sWo
1740: 72 64 20 2b 20 73 53 66 78 43 6f 64 65 2e 73 6c  rd + sSfxCode.sl
1750: 69 63 65 28 31 29 20 3a 20 73 57 6f 72 64 2e 73  ice(1) : sWord.s
1760: 6c 69 63 65 28 30 2c 20 2d 28 73 53 66 78 43 6f  lice(0, -(sSfxCo
1770: 64 65 2e 63 68 61 72 43 6f 64 65 41 74 28 30 29  de.charCodeAt(0)
1780: 2d 34 38 29 29 20 2b 20 73 53 66 78 43 6f 64 65  -48)) + sSfxCode
1790: 2e 73 6c 69 63 65 28 31 29 3b 0a 20 20 20 20 7d  .slice(1);.    }
17a0: 2c 0a 0a 20 20 20 20 2f 2f 20 50 72 65 66 69 78  ,..    // Prefix
17b0: 20 61 6e 64 20 73 75 66 66 69 78 0a 20 20 20 20   and suffix.    
17c0: 64 65 66 69 6e 65 41 66 66 69 78 43 6f 64 65 3a  defineAffixCode:
17d0: 20 66 75 6e 63 74 69 6f 6e 20 28 73 46 6c 65 78   function (sFlex
17e0: 2c 20 73 53 74 65 6d 29 20 7b 0a 20 20 20 20 20  , sStem) {.     
17f0: 20 20 20 2f 2a 0a 20 20 20 20 20 20 20 20 20 20     /*.          
1800: 20 20 55 4e 54 45 53 54 45 44 21 0a 20 20 20 20    UNTESTED!.    
1810: 20 20 20 20 20 20 20 20 52 65 74 75 72 6e 73 20          Returns 
1820: 61 20 73 74 72 69 6e 67 20 64 65 66 69 6e 69 6e  a string definin
1830: 67 20 68 6f 77 20 74 6f 20 67 65 74 20 73 74 65  g how to get ste
1840: 6d 20 66 72 6f 6d 20 66 6c 65 78 69 6f 6e 2e 20  m from flexion. 
1850: 45 78 61 6d 70 6c 65 73 3a 0a 20 20 20 20 20 20  Examples:.      
1860: 20 20 20 20 20 20 20 20 20 20 22 30 22 20 69 66            "0" if
1870: 20 73 74 65 6d 20 3d 20 66 6c 65 78 69 6f 6e 0a   stem = flexion.
1880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1890: 22 73 74 65 6d 22 20 69 66 20 6e 6f 20 63 6f 6d  "stem" if no com
18a0: 6d 6f 6e 20 73 75 62 73 74 72 69 6e 67 0a 20 20  mon substring.  
18b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6e                "n
18c0: 28 70 66 78 29 2f 6d 28 73 66 78 29 22 0a 20 20  (pfx)/m(sfx)".  
18d0: 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 6e            with n
18e0: 20 61 6e 64 20 6d 3a 20 63 68 61 72 73 20 77 69   and m: chars wi
18f0: 74 68 20 6e 75 6d 65 72 69 63 20 6d 65 61 6e 69  th numeric meani
1900: 6e 67 2c 20 22 30 22 20 3d 20 30 2c 20 22 31 22  ng, "0" = 0, "1"
1910: 20 3d 20 31 2c 20 2e 2e 2e 20 22 3a 22 20 3d 20   = 1, ... ":" = 
1920: 31 30 2c 20 65 74 63 2e 20 28 53 65 65 20 41 53  10, etc. (See AS
1930: 43 49 49 20 74 61 62 6c 65 2e 29 20 53 61 79 73  CII table.) Says
1940: 20 68 6f 77 20 6d 61 6e 79 20 6c 65 74 74 65 72   how many letter
1950: 73 20 74 6f 20 73 74 72 69 70 20 66 72 6f 6d 20  s to strip from 
1960: 66 6c 65 78 69 6f 6e 2e 0a 20 20 20 20 20 20 20  flexion..       
1970: 20 20 20 20 20 20 20 20 20 70 66 78 20 5b 6f 70           pfx [op
1980: 74 69 6f 6e 61 6c 5d 3a 20 73 74 72 69 6e 67 20  tional]: string 
1990: 74 6f 20 61 64 64 20 62 65 66 6f 72 65 20 74 68  to add before th
19a0: 65 20 66 6c 65 78 69 6f 6e 0a 20 20 20 20 20 20  e flexion.      
19b0: 20 20 20 20 20 20 20 20 20 20 73 66 78 20 5b 6f            sfx [o
19c0: 70 74 69 6f 6e 61 6c 5d 3a 20 73 74 72 69 6e 67  ptional]: string
19d0: 20 74 6f 20 61 64 64 20 61 66 74 65 72 20 74 68   to add after th
19e0: 65 20 66 6c 65 78 69 6f 6e 0a 20 20 20 20 20 20  e flexion.      
19f0: 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 69 66 20    */.        if 
1a00: 28 73 46 6c 65 78 20 3d 3d 20 73 53 74 65 6d 29  (sFlex == sStem)
1a10: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 72   {.            r
1a20: 65 74 75 72 6e 20 22 30 22 3b 0a 20 20 20 20 20  eturn "0";.     
1a30: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 2f 2f 20     }.        // 
1a40: 69 73 20 73 74 65 6d 20 61 20 73 75 62 73 74 72  is stem a substr
1a50: 69 6e 67 20 6f 66 20 66 6c 65 78 69 6f 6e 3f 0a  ing of flexion?.
1a60: 20 20 20 20 20 20 20 20 6c 65 74 20 6e 20 3d 20          let n = 
1a70: 73 46 6c 65 78 2e 69 6e 64 65 78 4f 66 28 73 53  sFlex.indexOf(sS
1a80: 74 65 6d 29 3b 0a 20 20 20 20 20 20 20 20 69 66  tem);.        if
1a90: 20 28 6e 20 3e 3d 20 30 29 20 7b 0a 20 20 20 20   (n >= 0) {.    
1aa0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53          return S
1ab0: 74 72 69 6e 67 2e 66 72 6f 6d 43 68 61 72 43 6f  tring.fromCharCo
1ac0: 64 65 28 6e 2b 34 38 29 20 2b 20 22 2f 22 20 2b  de(n+48) + "/" +
1ad0: 20 53 74 72 69 6e 67 2e 66 72 6f 6d 43 68 61 72   String.fromChar
1ae0: 43 6f 64 65 28 73 46 6c 65 78 2e 6c 65 6e 67 74  Code(sFlex.lengt
1af0: 68 2d 28 73 53 74 65 6d 2e 6c 65 6e 67 74 68 2b  h-(sStem.length+
1b00: 6e 29 2b 34 38 29 3b 0a 20 20 20 20 20 20 20 20  n)+48);.        
1b10: 7d 0a 20 20 20 20 20 20 20 20 2f 2f 20 6e 6f 2c  }.        // no,
1b20: 20 73 6f 20 77 65 20 61 72 65 20 6c 6f 6f 6b 69   so we are looki
1b30: 6e 67 20 66 6f 72 20 63 6f 6d 6d 6f 6e 20 73 75  ng for common su
1b40: 62 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20  bstring.        
1b50: 6c 65 74 20 73 53 75 62 73 20 3d 20 74 68 69 73  let sSubs = this
1b60: 2e 6c 6f 6e 67 65 73 74 43 6f 6d 6d 6f 6e 53 75  .longestCommonSu
1b70: 62 73 74 72 69 6e 67 28 73 46 6c 65 78 2c 20 73  bstring(sFlex, s
1b80: 53 74 65 6d 29 3b 0a 20 20 20 20 20 20 20 20 69  Stem);.        i
1b90: 66 20 28 73 53 75 62 73 2e 6c 65 6e 67 74 68 20  f (sSubs.length 
1ba0: 3e 20 31 29 20 7b 0a 20 20 20 20 20 20 20 20 20  > 1) {.         
1bb0: 20 20 20 6c 65 74 20 69 50 6f 73 20 3d 20 73 53     let iPos = sS
1bc0: 74 65 6d 2e 69 6e 64 65 78 4f 66 28 73 53 75 62  tem.indexOf(sSub
1bd0: 73 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20  s);.            
1be0: 6c 65 74 20 73 50 66 78 20 3d 20 73 53 74 65 6d  let sPfx = sStem
1bf0: 2e 73 6c 69 63 65 28 30 2c 20 69 50 6f 73 29 3b  .slice(0, iPos);
1c00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 74  .            let
1c10: 20 73 53 66 78 20 3d 20 73 53 74 65 6d 2e 73 6c   sSfx = sStem.sl
1c20: 69 63 65 28 69 50 6f 73 2b 73 53 75 62 73 2e 6c  ice(iPos+sSubs.l
1c30: 65 6e 67 74 68 29 3b 0a 20 20 20 20 20 20 20 20  ength);.        
1c40: 20 20 20 20 6c 65 74 20 6e 20 3d 20 73 46 6c 65      let n = sFle
1c50: 78 2e 69 6e 64 65 78 4f 66 28 73 53 75 62 73 29  x.indexOf(sSubs)
1c60: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6c 65  ;.            le
1c70: 74 20 6d 20 3d 20 73 46 6c 65 78 2e 6c 65 6e 67  t m = sFlex.leng
1c80: 74 68 20 2d 20 28 73 53 75 62 73 2e 6c 65 6e 67  th - (sSubs.leng
1c90: 74 68 2b 6e 29 3b 0a 20 20 20 20 20 20 20 20 20  th+n);.         
1ca0: 20 20 20 72 65 74 75 72 6e 20 53 74 72 69 6e 67     return String
1cb0: 2e 66 72 6f 6d 43 68 61 72 43 6f 64 65 28 6e 2b  .fromCharCode(n+
1cc0: 34 38 29 20 2b 20 73 50 66 78 20 2b 20 22 2f 22  48) + sPfx + "/"
1cd0: 20 2b 20 53 74 72 69 6e 67 2e 66 72 6f 6d 43 68   + String.fromCh
1ce0: 61 72 43 6f 64 65 28 6d 2b 34 38 29 20 2b 20 73  arCode(m+48) + s
1cf0: 53 66 78 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20  Sfx;.        }. 
1d00: 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 73 53         return sS
1d10: 74 65 6d 3b 0a 20 20 20 20 7d 2c 0a 0a 20 20 20  tem;.    },..   
1d20: 20 63 68 61 6e 67 65 57 6f 72 64 57 69 74 68 41   changeWordWithA
1d30: 66 66 69 78 43 6f 64 65 3a 20 66 75 6e 63 74 69  ffixCode: functi
1d40: 6f 6e 20 28 73 57 6f 72 64 2c 20 73 41 66 66 43  on (sWord, sAffC
1d50: 6f 64 65 29 20 7b 0a 20 20 20 20 20 20 20 20 69  ode) {.        i
1d60: 66 20 28 73 41 66 66 43 6f 64 65 20 3d 3d 20 22  f (sAffCode == "
1d70: 30 22 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20  0") {.          
1d80: 20 20 72 65 74 75 72 6e 20 73 57 6f 72 64 3b 0a    return sWord;.
1d90: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20          }.      
1da0: 20 20 69 66 20 28 21 73 41 66 66 43 6f 64 65 2e    if (!sAffCode.
1db0: 69 6e 63 6c 75 64 65 73 28 22 2f 22 29 29 20 7b  includes("/")) {
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 72 65 74  .            ret
1dd0: 75 72 6e 20 73 41 66 66 43 6f 64 65 3b 0a 20 20  urn sAffCode;.  
1de0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20        }.        
1df0: 6c 65 74 20 5b 73 50 66 78 43 6f 64 65 2c 20 73  let [sPfxCode, s
1e00: 53 66 78 43 6f 64 65 5d 20 3d 20 73 41 66 66 43  SfxCode] = sAffC
1e10: 6f 64 65 2e 73 70 6c 69 74 28 27 2f 27 29 3b 0a  ode.split('/');.
1e20: 20 20 20 20 20 20 20 20 73 57 6f 72 64 20 3d 20          sWord = 
1e30: 73 50 66 78 43 6f 64 65 2e 73 6c 69 63 65 28 31  sPfxCode.slice(1
1e40: 29 20 2b 20 73 57 6f 72 64 2e 73 6c 69 63 65 28  ) + sWord.slice(
1e50: 73 50 66 78 43 6f 64 65 2e 63 68 61 72 43 6f 64  sPfxCode.charCod
1e60: 65 41 74 28 30 29 2d 34 38 29 3b 0a 20 20 20 20  eAt(0)-48);.    
1e70: 20 20 20 20 72 65 74 75 72 6e 20 73 53 66 78 43      return sSfxC
1e80: 6f 64 65 5b 30 5d 20 3d 3d 20 27 30 27 20 3f 20  ode[0] == '0' ? 
1e90: 73 57 6f 72 64 20 2b 20 73 53 66 78 43 6f 64 65  sWord + sSfxCode
1ea0: 2e 73 6c 69 63 65 28 31 29 20 3a 20 73 57 6f 72  .slice(1) : sWor
1eb0: 64 2e 73 6c 69 63 65 28 30 2c 20 2d 28 73 53 66  d.slice(0, -(sSf
1ec0: 78 43 6f 64 65 2e 63 68 61 72 43 6f 64 65 41 74  xCode.charCodeAt
1ed0: 28 30 29 2d 34 38 29 29 20 2b 20 73 53 66 78 43  (0)-48)) + sSfxC
1ee0: 6f 64 65 2e 73 6c 69 63 65 28 31 29 3b 0a 20 20  ode.slice(1);.  
1ef0: 20 20 7d 0a 7d 3b 0a 0a 0a 69 66 20 28 74 79 70    }.};...if (typ
1f00: 65 6f 66 28 65 78 70 6f 72 74 73 29 20 21 3d 3d  eof(exports) !==
1f10: 20 27 75 6e 64 65 66 69 6e 65 64 27 29 20 7b 0a   'undefined') {.
1f20: 20 20 20 20 65 78 70 6f 72 74 73 2e 6c 6f 6e 67      exports.long
1f30: 65 73 74 43 6f 6d 6d 6f 6e 53 75 62 73 74 72 69  estCommonSubstri
1f40: 6e 67 20 3d 20 73 74 72 5f 74 72 61 6e 73 66 6f  ng = str_transfo
1f50: 72 6d 2e 6c 6f 6e 67 65 73 74 43 6f 6d 6d 6f 6e  rm.longestCommon
1f60: 53 75 62 73 74 72 69 6e 67 3b 0a 20 20 20 20 65  Substring;.    e
1f70: 78 70 6f 72 74 73 2e 64 69 73 74 61 6e 63 65 44  xports.distanceD
1f80: 61 6d 65 72 61 75 4c 65 76 65 6e 73 68 74 65 69  amerauLevenshtei
1f90: 6e 20 3d 20 73 74 72 5f 74 72 61 6e 73 66 6f 72  n = str_transfor
1fa0: 6d 2e 64 69 73 74 61 6e 63 65 44 61 6d 65 72 61  m.distanceDamera
1fb0: 75 4c 65 76 65 6e 73 68 74 65 69 6e 3b 0a 20 20  uLevenshtein;.  
1fc0: 20 20 65 78 70 6f 72 74 73 2e 64 69 73 74 61 6e    exports.distan
1fd0: 63 65 44 61 6d 65 72 61 75 4c 65 76 65 6e 73 68  ceDamerauLevensh
1fe0: 74 65 69 6e 32 20 3d 20 73 74 72 5f 74 72 61 6e  tein2 = str_tran
1ff0: 73 66 6f 72 6d 2e 64 69 73 74 61 6e 63 65 44 61  sform.distanceDa
2000: 6d 65 72 61 75 4c 65 76 65 6e 73 68 74 65 69 6e  merauLevenshtein
2010: 32 3b 0a 20 20 20 20 65 78 70 6f 72 74 73 2e 73  2;.    exports.s
2020: 68 6f 77 44 69 73 74 61 6e 63 65 20 3d 20 73 74  howDistance = st
2030: 72 5f 74 72 61 6e 73 66 6f 72 6d 2e 73 68 6f 77  r_transform.show
2040: 44 69 73 74 61 6e 63 65 3b 0a 20 20 20 20 65 78  Distance;.    ex
2050: 70 6f 72 74 73 2e 63 68 61 6e 67 65 57 6f 72 64  ports.changeWord
2060: 57 69 74 68 53 75 66 66 69 78 43 6f 64 65 20 3d  WithSuffixCode =
2070: 20 73 74 72 5f 74 72 61 6e 73 66 6f 72 6d 2e 63   str_transform.c
2080: 68 61 6e 67 65 57 6f 72 64 57 69 74 68 53 75 66  hangeWordWithSuf
2090: 66 69 78 43 6f 64 65 3b 0a 20 20 20 20 65 78 70  fixCode;.    exp
20a0: 6f 72 74 73 2e 63 68 61 6e 67 65 57 6f 72 64 57  orts.changeWordW
20b0: 69 74 68 41 66 66 69 78 43 6f 64 65 20 3d 20 73  ithAffixCode = s
20c0: 74 72 5f 74 72 61 6e 73 66 6f 72 6d 2e 63 68 61  tr_transform.cha
20d0: 6e 67 65 57 6f 72 64 57 69 74 68 41 66 66 69 78  ngeWordWithAffix
20e0: 43 6f 64 65 3b 0a 20 20 20 20 65 78 70 6f 72 74  Code;.    export
20f0: 73 2e 64 65 66 69 6e 65 41 66 66 69 78 43 6f 64  s.defineAffixCod
2100: 65 20 3d 20 73 74 72 5f 74 72 61 6e 73 66 6f 72  e = str_transfor
2110: 6d 2e 64 65 66 69 6e 65 41 66 66 69 78 43 6f 64  m.defineAffixCod
2120: 65 3b 0a 20 20 20 20 65 78 70 6f 72 74 73 2e 64  e;.    exports.d
2130: 65 66 69 6e 65 53 75 66 66 69 78 43 6f 64 65 20  efineSuffixCode 
2140: 3d 20 73 74 72 5f 74 72 61 6e 73 66 6f 72 6d 2e  = str_transform.
2150: 64 65 66 69 6e 65 53 75 66 66 69 78 43 6f 64 65  defineSuffixCode
2160: 3b 0a 7d 0a                                      ;.}.