Retain the Latest Earlier Character Result

1library(yamaa)23yamaa_spec("spec.yaml")$run()$output

1import yamaa23yamaa.spec("spec.yaml").run().output

1# Reference solution for the yamaa benchmark adam-advs-prior-result (R track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67library(dplyr, warn.conflicts = FALSE)8library(readr)9library(tidyr)1011vs <- read_csv(12  "/app/input/vs.csv",13  col_types = cols(14    VSSEQ = col_integer(), AVISITN = col_integer(),15    .default = col_character()16  )17)1819# Within a series, rows are ordered by visit number with missing numbers20# last, keeping the collected order for ties. The look-back skips blank21# results but never crosses into another series.22ordered <- vs |>23  arrange(STUDYID, USUBJID, SERIES, is.na(AVISITN), AVISITN)2425# Forward-fill the ordered results, then lag by one so the row's own26# value never counts.27prev <- ordered |>28  group_by(STUDYID, USUBJID, SERIES) |>29  fill(AVALC, .direction = "down") |>30  mutate(PREVAVALC = lag(AVALC)) |>31  ungroup() |>32  select(STUDYID, USUBJID, VSSEQ, PREVAVALC)3334advs <- vs |>35  left_join(prev, by = c("STUDYID", "USUBJID", "VSSEQ")) |>36  arrange(USUBJID, VSSEQ) |>37  select(STUDYID, USUBJID, VSSEQ, SERIES, AVISITN, AVALC, PREVAVALC)3839dir.create("/app/output", showWarnings = FALSE)40write_csv(advs, "/app/output/advs.csv", na = "")

1# Reference solution for the yamaa benchmark adam-advs-prior-result (Python track).2#3# Written from the benchmark's full prompt and its inputs alone, as an agent4# would write it. Harbor's oracle agent runs it to check that the prompt can5# be solved and that the grader scores a correct answer 1.67"""Build ADVS from the VS dataset: one record per collected row, with8PREVAVALC set to the closest earlier non-blank AVALC for the same9subject and series.1011Rows with no SERIES value share one series. Within a subject and12series, rows are ordered by AVISITN with a missing AVISITN last, and13rows that tie keep their collected order. Blank results never serve as14a previous value, and a previous value never crosses a series or a15subject.16"""1718import csv1920INPUT_VS = "/app/input/vs.csv"21OUTPUT_ADVS = "/app/output/advs.csv"2223COLUMNS = ["STUDYID", "USUBJID", "VSSEQ", "SERIES", "AVISITN", "AVALC",24           "PREVAVALC"]252627def visit_key(row):28    """Sort key: AVISITN ascending, a missing AVISITN last.2930    The sort is stable, so rows sharing an AVISITN, or both missing31    one, keep their collected order.32    """33    text = row["AVISITN"].strip()34    if text == "":35        return (1, 0.0)36    return (0, float(text))373839def main():40    with open(INPUT_VS, newline="") as handle:41        rows = list(csv.DictReader(handle))4243    groups = {}44    for index, row in enumerate(rows):45        key = (row["USUBJID"], row["SERIES"])46        groups.setdefault(key, []).append(index)4748    previous = {}49    for indexes in groups.values():50        last_nonblank = ""51        for index in sorted(indexes, key=lambda i: visit_key(rows[i])):52            previous[index] = last_nonblank53            avalc = rows[index]["AVALC"]54            if avalc.strip() != "":55                last_nonblank = avalc5657    with open(OUTPUT_ADVS, "w", newline="") as handle:58        writer = csv.DictWriter(handle, fieldnames=COLUMNS)59        writer.writeheader()60        for index, row in enumerate(rows):61            out = {name: row[name] for name in COLUMNS if name != "PREVAVALC"}62            out["PREVAVALC"] = previous[index]63            writer.writerow(out)646566if __name__ == "__main__":67    main()

1/* opensas reference solution for the yamaa benchmark adam-advs-prior-result.2   Reads the benchmark inputs and derives the requested output.3   Execute with the existing opensas runtime: opensas /app/output/result.sas. */45data vs;6  length STUDYID USUBJID SERIES AVALC $1024;7  infile "/app/input/vs.csv" dsd dlm="," firstobs=2 truncover lrecl=32767;8  input STUDYID : $char1024. USUBJID : $char1024. VSSEQ SERIES : $char1024. AVISITN AVALC : $char1024.;9run;1011data ordered; set vs; ordinal=_n_; novisit=missing(AVISITN); run;12proc sort data=ordered; by STUDYID USUBJID SERIES novisit AVISITN ordinal; run;13data result;14  length PREVAVALC carried $1024;15  retain carried;16  set ordered; by STUDYID USUBJID SERIES;17  if first.SERIES then carried='';18  PREVAVALC=carried;19  if not missing(AVALC) then carried=AVALC;20run;2122proc sql;23  create table final as select STUDYID, USUBJID, VSSEQ, SERIES, AVISITN, AVALC, PREVAVALC from result;24quit;25proc export data=final outfile="/app/output/advs.csv" dbms=csv replace; run;