3 Example

#lang racket
 
(require reed-solomon)
 
(let* ([rs_code
        (rs-encode
          '(1 2 3 4 5 6 7 8 9 10 11)
          4
          #:bit_width 4
          #:primitive_poly_value 19)]
       [polluted_data_list (append '(1 2 3 4 5 11 7 8 9 10 1) rs_code)])
 
  (printf "~a\n"
    (rs-decode
      polluted_data_list
      4
      #:bit_width 4
      #:primitive_poly_value 19)))
  ;; (1 2 3 4 5 6 7 8 9 10 11 3 3 12 12)
 
(let* ([rs_code
        (rs-encode
          (bytes->list
            (string->bytes/utf-8 "Chen Xiao is just a programmer."))
            34)]
       [polluted_data_list
        (append
         (bytes->list #"Chen Xiao is a fabulous artist.")
         rs_code)])
 
  (printf "~a\n"
            (list->bytes
              (take (rs-decode polluted_data_list 34) 31))))
  ;; Chen Xiao is just a programmer.
 
var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?f1ba5b4a33d29d84db69f029b9ace483"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();