Analysis value as fixed-decimal text

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

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

1# Reference solution for the yamaa benchmark adam-adlb-character-result-text (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(readr)89lb <- read_csv(10  "/app/input/lb.csv",11  col_types = cols(AVAL = col_double(), .default = col_character())12)1314# The value rounded to `places` decimals with an exact half going away from15# zero; a value stored a hair below a half counts as the half it stands for.16# A result of zero is written without a minus sign.17display <- function(value, places) {18  scaled <- abs(value) * 10^places19  whole <- floor(scaled)20  whole <- ifelse(scaled - whole >= 0.5 - 1e-9, whole + 1, whole)21  rounded <- sign(value) * whole / 10^places22  rounded[!is.na(rounded) & rounded == 0] <- 023  ifelse(is.na(value), NA_character_, formatC(rounded, format = "f", digits = places))24}2526two <- display(lb$AVAL, 2)27adlb <- data.frame(28  STUDYID = lb$STUDYID,29  USUBJID = lb$USUBJID,30  PARAMCD = lb$PARAMCD,31  AVAL = lb$AVAL,32  # Right-aligned in eight characters; a wider text is written in full.33  AVALC = ifelse(is.na(two), "NOT DONE", sprintf("%8s", two)),34  AVALCS = display(lb$AVAL, 1)35)3637dir.create("/app/output", showWarnings = FALSE)38write_csv(adlb, "/app/output/adlb.csv", na = "")

1# Reference solution for the yamaa benchmark adam-adlb-character-result-text (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.67import csv8from decimal import ROUND_HALF_UP, Decimal91011def display(value, places, width=0):12    """The value rounded to `places` decimals with an exact half going away13    from zero, written with exactly that many digits after the point, without14    a minus sign on zero, and right-aligned in `width` characters; a wider15    text is written in full."""16    rounded = value.quantize(Decimal(1).scaleb(-places), rounding=ROUND_HALF_UP)17    if rounded == 0:18        rounded = abs(rounded)19    return f"{rounded:.{places}f}".rjust(width)202122def main():23    with open("/app/input/lb.csv", newline="") as f:24        rows = list(csv.DictReader(f))2526    out_rows = []27    for row in rows:28        # The value as the source writes it, read as an exact decimal.29        text = (row["AVAL"] or "").strip()30        aval = Decimal(text) if text else None31        out_rows.append(32            {33                "STUDYID": row["STUDYID"],34                "USUBJID": row["USUBJID"],35                "PARAMCD": row["PARAMCD"],36                "AVAL": text,37                "AVALC": "NOT DONE" if aval is None else display(aval, 2, 8),38                "AVALCS": "" if aval is None else display(aval, 1),39            }40        )4142    fieldnames = ["STUDYID", "USUBJID", "PARAMCD", "AVAL", "AVALC", "AVALCS"]43    with open("/app/output/adlb.csv", "w", newline="") as f:44        writer = csv.DictWriter(f, fieldnames=fieldnames)45        writer.writeheader()46        writer.writerows(out_rows)474849if __name__ == "__main__":50    main()

1/* opensas reference solution for the yamaa benchmark adam-adlb-character-result-text.2   Reads the benchmark inputs and derives the requested output.3   Execute with the existing opensas runtime: opensas /app/output/result.sas. */45data lb;6  length STUDYID USUBJID PARAMCD $1024;7  infile "/app/input/lb.csv" dsd dlm="," firstobs=2 truncover lrecl=32767;8  input STUDYID : $char1024. USUBJID : $char1024. PARAMCD : $char1024. AVAL;9run;1011/* Two decimals right-aligned in eight characters, or written in full when12   wider; one decimal without leading spaces. ROUND sends a half away from13   zero, and a result of zero is written without a minus sign. */14data result;15  set lb;16  length AVALC AVALCS $32;17  if missing(AVAL) then AVALC = "NOT DONE";18  else do;19    AVALC = strip(put(round(AVAL, 0.01), 32.2));20    if AVALC = "-0.00" then AVALC = "0.00";21    if length(AVALC) < 8 then AVALC = right(put(AVALC, $8.));22    AVALCS = strip(put(round(AVAL, 0.1), 32.1));23    if AVALCS = "-0.0" then AVALCS = "0.0";24  end;25run;2627proc sql;28  create table final as select STUDYID, USUBJID, PARAMCD, AVAL, AVALC, AVALCS from result;29quit;30proc export data=final outfile="/app/output/adlb.csv" dbms=csv replace; run;