library('tidyverse')

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     

── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

rules_df <- read.table('rules.txt', sep='|')

data_df <- read.table('data.txt')

data_df_list <- str_split(data_df$V1, ',')

data_df_list[1]

1. 1. '13'
   2. '19'
   3. '52'
   4. '14'
   5. '65'
   6. '96'
   7. '62'
   8. '98'
   9. '58'
   10. '73'
   11. '97'
   12. '92'
   13. '91'
   14. '87'
   15. '44'
   16. '54'
   17. '42'

for (i in length(data_df_list)){
   x1<-as.vector(data_df_list[i])
    x2<-as.numeric(x1)
}

Error: 'list' object cannot be coerced to type 'double'
Traceback:

as.vector(data_df_list[1])

1. 1. '13'
   2. '19'
   3. '52'
   4. '14'
   5. '65'
   6. '96'
   7. '62'
   8. '98'
   9. '58'
   10. '73'
   11. '97'
   12. '92'
   13. '91'
   14. '87'
   15. '44'
   16. '54'
   17. '42'

Error in `check_match()`:
! `match` must be a character vector of non empty strings.
Traceback:

1. contains(., V1, 46)
2. check_match(match)
3. cli::cli_abort("{.arg match} must be a character vector of non empty strings.")
4. rlang::abort(message, ..., call = call, use_cli_format = TRUE, 
 .     .frame = .frame)
5. signal_abort(cnd, .file)
6. signalCondition(cnd)

class(data_df_list[[1]])

'list'

data_df_list

A matrix: 223 × 23 of type chr

13	19	52	14	65	96	62	98	58	73	⋯	87	44	54	42	13	19	52	14	65	96
26	11	93	84	95	45	63	89	27	65	⋯	93	84	95	45	63	89	27	65	55	26
97	57	95	26	73	34	81	91	54	64	⋯	95	26	73	34	81	91	54	64	74	97
74	91	42	62	87	27	53	98	81	92	⋯	63	57	67	96	26	34	74	91	42	62
87	55	94	65	91	98	44	14	69	78	⋯	89	81	87	55	94	65	91	98	44	14
26	95	84	93	68	48	35	76	47	38	⋯	89	55	12	75	69	65	14	52	13	22
67	91	62	92	64	37	19	26	58	81	⋯	67	91	62	92	64	37	19	26	58	81
95	38	94	89	69	13	44	95	38	94	⋯	44	95	38	94	89	69	13	44	95	38
76	47	38	11	94	24	89	55	12	75	⋯	13	22	78	96	98	73	81	87	76	47
19	97	92	64	57	74	37	63	67	27	⋯	93	68	48	45	38	11	19	97	92	64
74	62	37	67	92	38	34	57	93	74	⋯	92	38	34	57	93	74	62	37	67	92
65	42	58	73	97	92	53	54	87	57	⋯	81	52	96	14	65	42	58	73	97	92
87	91	58	53	99	62	19	97	64	74	⋯	67	95	93	68	87	91	58	53	99	62
98	11	24	14	89	52	22	55	75	47	⋯	38	91	96	81	65	87	94	69	98	11
53	99	62	54	97	92	64	37	63	34	⋯	95	84	93	68	48	35	76	45	53	99
94	24	89	55	75	69	14	52	44	73	⋯	53	99	94	24	89	55	75	69	14	52
76	45	47	38	94	24	89	55	12	75	⋯	52	13	22	44	78	96	73	87	76	45
63	37	68	89	24	38	11	84	27	94	⋯	34	64	45	35	67	57	74	26	76	47
54	26	53	19	27	91	58	87	92	57	⋯	95	93	62	84	68	97	54	26	53	19
89	55	12	69	65	14	52	13	22	78	⋯	87	91	42	58	53	99	62	54	89	55
57	74	37	63	34	67	27	84	68	48	⋯	38	24	55	12	57	74	37	63	34	67
97	64	57	67	45	47	24	97	64	57	⋯	24	97	64	57	67	45	47	24	97	64
55	95	27	35	75	47	68	94	34	38	⋯	48	84	93	11	89	69	26	76	12	24
63	27	26	95	93	68	35	76	45	47	⋯	89	65	63	27	26	95	93	68	35	76
93	68	48	45	38	93	68	48	45	38	⋯	45	38	93	68	48	45	38	93	68	48
75	69	13	22	96	73	87	62	92	75	⋯	96	73	87	62	92	75	69	13	22	96
54	92	74	34	27	84	68	35	11	54	⋯	27	84	68	35	11	54	92	74	34	27
91	42	58	62	54	97	92	57	74	63	⋯	93	48	91	42	58	62	54	97	92	57
53	19	87	13	64	74	96	14	73	58	⋯	87	13	64	74	96	14	73	58	92	53
63	67	84	35	76	47	89	55	65	63	⋯	76	47	89	55	65	63	67	84	35	76
⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋱	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮	⋮
35	26	47	67	74	93	94	45	34	27	⋯	47	67	74	93	94	45	34	27	95	35
73	34	44	98	64	22	19	73	34	44	⋯	19	73	34	44	98	64	22	19	73	34
53	74	63	34	95	48	45	53	74	63	⋯	45	53	74	63	34	95	48	45	53	74
91	42	58	53	99	62	54	19	97	92	⋯	67	27	26	95	93	48	91	42	58	53
92	38	93	37	11	63	45	27	74	95	⋯	92	38	93	37	11	63	45	27	74	95
67	35	84	34	62	74	57	48	27	63	⋯	84	34	62	74	57	48	27	63	97	67
44	42	58	53	99	54	64	57	67	44	⋯	99	54	64	57	67	44	42	58	53	99
91	19	37	87	22	92	74	57	96	81	⋯	91	19	37	87	22	92	74	57	96	81
24	35	84	93	69	89	65	47	63	24	⋯	69	89	65	47	63	24	35	84	93	69
84	93	68	48	35	76	45	47	11	94	⋯	12	75	69	65	13	22	44	78	84	93
38	11	94	24	89	55	12	75	69	65	⋯	78	96	98	73	81	91	42	58	38	11
75	65	98	73	87	91	54	75	65	98	⋯	54	75	65	98	73	87	91	54	75	65
38	93	97	92	95	19	34	37	57	68	⋯	45	54	67	62	48	64	84	35	38	93
89	55	12	75	69	65	14	22	44	78	⋯	87	91	42	58	53	99	62	54	89	55
26	95	84	93	68	48	35	76	45	38	⋯	89	55	12	75	69	65	14	13	26	95
53	54	52	97	22	99	65	14	69	12	⋯	98	42	44	87	62	96	78	13	53	54
48	93	94	67	89	47	38	64	57	35	⋯	63	55	68	11	37	76	48	93	94	67
64	57	74	63	34	67	26	48	76	45	⋯	89	55	64	57	74	63	34	67	26	48
73	89	13	44	14	47	76	75	65	45	⋯	69	78	35	11	94	81	96	98	73	89
84	93	48	76	45	47	38	11	94	24	⋯	69	65	14	13	22	44	84	93	48	76
97	54	87	19	91	75	69	99	52	96	⋯	62	65	97	54	87	19	91	75	69	99
24	69	87	78	55	13	58	22	11	96	⋯	89	38	24	69	87	78	55	13	58	22
62	19	74	27	95	84	38	62	19	74	⋯	38	62	19	74	27	95	84	38	62	19
58	99	62	54	97	92	64	57	74	63	⋯	95	84	93	68	48	76	58	99	62	54
14	13	22	87	42	58	53	62	54	97	⋯	14	13	22	87	42	58	53	62	54	97
48	97	26	38	84	34	27	63	94	95	⋯	35	64	37	19	45	68	48	97	26	38
27	69	75	76	12	95	47	68	67	45	⋯	35	93	94	84	14	34	24	48	27	69
87	52	55	14	13	47	94	24	69	65	⋯	45	38	89	81	98	73	75	22	12	44
52	13	73	87	91	54	19	97	37	52	⋯	91	54	19	97	37	52	13	73	87	91
34	67	27	95	84	93	48	45	38	11	⋯	65	14	34	67	27	95	84	93	48	45