Ваши программы:

Вы напишите две программы (обе на одном языке). Программа хранения берет строку из STDIN и сохраняет ее где-то постоянно (см. Ниже), а затем завершает работу без ошибок. Программа поиска не принимает никаких данных, извлекает строку, которая была сохранена, и печатает ее в STDOUT.

Объективный тест на стойкость:

Вы должны быть в состоянии запустить программу хранения на локальном компьютере, затем выключить и снова включить локальный компьютер, а затем вызвать программу поиска на своем локальном компьютере. Вы можете хранить строку как угодно (даже в Интернете), пока вы проходите этот тест перезагрузки.

Тестовые случаи:

Хранение затем поиск:

echo foo | Store
Retrieve
foo

Повторные хранилища должны перезаписывать (как метод set ()):

echo foo | Store
echo bar | Store
Retrieve
bar

Повторное получение является неразрушающим (как метод get ()):

echo foo | Store
Retrieve
foo
Retrieve
foo

Извлечение до любого вызова хранилища:

Вам не нужно беспокоиться об этом. Ваша поисковая программа может предположить, что программа хранения была запущена в некоторый момент в прошлом.

Гибкость ввода / вывода.

Люди просили меня расширить это от строгого STDIN / STDOUT до стандартных правил ввода-вывода. Я не могу, потому что это принесет слишком много лазеек. Некоторые стандартные параметры ввода-вывода уже хранят входные данные в постоянном виде, например, «программы могут получать входные данные из файла». Я хотел бы быть более гибким, чем просто строгий STDIN и STDOUT, но не открывая шлюзы.

Из стандартной ветки правил IO я выбираю те, которые не решают проблему:

• Программы могут принимать ввод через приглашения графического интерфейса пользователя и командной строки, если вы хотите

• Программы могут выводить данные, отображая их на экране. Это включает в себя диалоги с графическим интерфейсом.

• Программы могут принимать ввод через аргументы командной строки

• Программы могут выводить в STDERR, но на самом деле не могут выдавать ошибки.

Если вы используете альтернативу, она должна быть интерактивной. Пользователю не нужно выполнять какую-либо другую работу, кроме передачи своего ввода в вашу программу, ввода его в подсказку, которую предоставляет ваша программа, или ввода ввода в качестве аргумента командной строки вашей программы. Пользователь не должен делать ничего, кроме запуска вашей программы извлечения, чтобы увидеть вывод, отображаемый на экране или отправленный в STDOUT или STDERR.

Допустимые предположения:

• Ваши две программы будут запущены в одном каталоге
• Ваши программы имеют разрешения на чтение и запись для этого каталога
• Созданные вами файлы выживут после перезагрузки (не во временной директории)
• Разрешается использовать один завершающий перевод строки, который не был частью строки. Нет других конечных пробелов

Это код-гольф, а ваш результат - сумма байтов в обеих программах.

зш, 4 байта

Store: >f(читает из STDIN и записывает в файл с именем f)
Retrieve: <f(записывает содержимое fв STDOUT)

TI-BASIC (Z80), 1 байт ?

Store:  (просто введите строку)
Получить: Ans(байт 27)

Но если это не верно:

TI-BASIC (Z80), 7 6 байтов

-1 спасибо якобу

Хранить: Prompt Str0(байты DD AA 09)
Получить: disp Str0(байты ED AA 09)

Браузер JS, 44 байта

Магазин :

localStorage.a=prompt()

Получить :

alert(localStorage.a)

POSIX оболочка sh / bash / ... 8 байт

хранить:

dd>f

получить:

dd<f

Python 3 , 46 байт

магазин, 45 байт:

open(*'fw').write('print(%r)'%open(0).read())

Программа извлечения создается командой store, файл с именем f. ( 1 байт для имени файла )

Пакетный, 16 байтов

COPY CON A
TYPE A

Powershell - 4 байта

Место хранения:

ac

(альтернатива также sc)

поиск

gc

Редактировать: я только заметил, что вывод не допускается какой-либо пользовательский ввод ... поэтому он переходит с 4 до 6 или 8 байтов

Место хранения:

ac f

(альтернатива также sc f) для 8-байтовой версии

ac

(и укажите fкак путь) для 6-байтовой версии

поиск

gc f

Ржавчина, 136 байт

Store (84 байта)

use std::{fs::*,io::*};

||{let mut v=vec![];stdin().read_to_end(&mut v);write("a",v)}

Получить (52 байта)

||print!("{}",std::fs::read_to_string("a").unwrap())

Подтверждения

• -1 байт благодаря Esolanging Fruit

Bash, 12 11 10 байт

хранить, 7 6 5 байт

cat ->f# нет необходимости -, стандартный ввод по умолчанию

cat >f# не нужно места, также >отделяется

cat>f

получить 5 байт

cat f

HP 49G RPL, 48 байтов

Сохранить: :2: A DUP PURGE STO26,5 байт

Для восстановления: :2: A RCL21,5 байт

Если мы можем оставить в резервной батарее, мы получим:

HP 49G RPL, 0 байтов

Сохранить: 0 байт

Для восстановления: 0 байт, поскольку HP 49G оставляет стек без изменений при перезагрузке.

APL (APLX) , 5 байтов

Магазин: ⍞⍈1
Получить:⍇1

⍞ получить строку из stdin и
⍈1 записать следующий доступный компонент файла номер 1

⍇1 прочитать первый * последний компонент файла № 1

* Документация говорит в первую очередь, но эксперименты показывают в последнюю очередь .

bash, 10 байт (не конкурирует)

touch $@
ls

Имена файлов Unix могут содержать любой символ, кроме NULи /, и их имена могут иметь длину до 255 байт, поэтому в нем можно хранить только строки до этой длины (считая, что это ограничение носителя), и которые не содержат '/ ' в них. Это одна из причин, по которой это не конкурирует, другая - это то, что предполагается, что каталог, в котором он запущен, пуст (или что посторонний вывод из lsразрешен). Я все еще хотел опубликовать это, потому что это просто показалось классным и неочевидным способом хранения информации.

Другой по аналогичной схеме, который не имел бы такой же длины и ограничений по характеру, был бы:

35 33 байта

mkdir -p $@
find|sed '$!d;s/..//'

Это позволяет использовать /символ в строке и поддерживает гораздо больше символов (сколько именно зависит от реализации).

(-2 байта на это благодаря шарлатану @Cows)

Python 3, 56 байт

Store (33 байта)

open(*'aw').write(open(0).read())

Получить (23 байта)

print(open('a').read())

Печать с завершающим переводом строки.

Japt, 46 30 байт

^{-16 байт благодаря Шегги .}

Один из первых раз, когда я пытался использовать Japt. JS Eval иногда может быть беспокойным. Использует браузер window.localStorage.

Store (16 байт)

Ox`lo¯lSÈSge.P=U

Получить (14 байт)

Ox`lo¯lSÈSge.P

Haskell, 46 байтов

Store (26 байт):

getContents>>=writeFile"t"

Получить (20 байтов):

readFile"t">>=putStr

Рубин (26 байт)

Set (16 байт)

IO.write'a',gets

Получить (10 байт)

IO.read'a'

MATLAB (30 байт)

Set (22 байта)

a=input('','s');save a

Можно сбрить 4 байта, изменив на input(''), но это потребует ввода в одинарных кавычках:'input string'

Получить (8 байт)

load a;a

C (GCC), 98 байт

Store (46 байт)

Ввод осуществляется через первый аргумент командной строки.

main(c,v)char**v;{fputs(v[1],fopen("a","w"));}

Получить (52 байта)

c,d;r(){for(d=open("a",0);read(d,&c,1);)putchar(c);}

Unportability

• Требуется, чтобы в него помещалось несколько типов указателей int.

Подтверждения

• -2 байта благодаря потолку
• -10 байт благодаря Питеру Кордесу

APL (Dyalog Unicode) , 18 байт

Магазин: ⍞⎕NPUT⎕A 1 попробуйте онлайн!
Получить: ⊃⎕NGET⎕A попробуйте онлайн!

⍞ получить строку из stdin,
⎕NPUT поместить ее в собственный файл, называемый
⎕A прописным алфавитом, 1 и перезаписать, если файл существует

⊃ первая часть (данные, следующие части - это кодировка и тип конца строки) для
⎕NGET получения собственного файла
⎕A в верхнем регистре

R (27 байт)

магазин (21 байт)

x=readLines('stdin')

нагрузка (6 байт)

cat(x)

Чтобы это работало, первый сценарий должен быть вызван с параметром командной строки --save, а второй - с --restore(хотя в интерактивном режиме это не обязательно: эти параметры являются параметрами по умолчанию).

Это может быть сокращено на 7 байт, если бы не тот факт, что ошибка в R не позволяет аргументу по умолчанию readLineработать в неинтерактивном режиме. В интерактивном режиме это не является необходимым, и поэтому решение использует только 20 байтов .

Java (JDK 10) , 204 байта

Предупреждение: перезаписывает любые настройки, которые любые java-программы сохранили для вашего имени пользователя!

Store, 94 байта:

interface S{static void main(String[]a){java.util.prefs.Preferences.userRoot().put("",a[0]);}}

Попробуйте онлайн!

Восстановить 110 байт:

interface R{static void main(String[]a){System.out.print(java.util.prefs.Preferences.userRoot().get("",""));}}

Попробуйте онлайн!

java S foo
java R
foo

Это работает, принимая входные данные в качестве аргумента и сохраняя их в хранилище пользовательских настроек, предоставленном java.util.prefs . Он перезаписывает корневой узел пользователя, чтобы сохранить один байт при именовании узла. Если вы хотите проверить его без деструктивности, либо запустите его с одноразовым именем пользователя, либо измените ключ с "" на имя узла.

C #, 157 байт

Set, 74 Bytes:

class P{static void Main(string[]a){System.IO.File.WriteAllLines("a",a);}}

Получите 83 байта:

class P{static void Main(){System.Console.Write(System.IO.File.ReadAllText("a"));}}

-1 байт благодаря VisualMelon
-2 байт благодаря LiefdeWen

Perl 5, 48 26 23 байта

Запись, 20 + 1 (-n) байтов

-3 байта благодаря толпе

open f,">>f";print f

На самом деле я не уверен в этом, но это соответствует критериям. Для прошлых записей учитывались только параметры cli, так что я собираюсь.

Читать, 0 + 2 байта

perl -pe "" f

Атташе , 23 + 16 = 39 байт

Просто записывает STDIN в файл A, затем читает файл A.

store.@:

$A&FileWrite!AllInput[]

retrieve.@:

Echo!FileRead!$A

тестирование

C:\Users\conorob\Programming\attache (master -> origin)
λ echo testing | attache store.@

C:\Users\conorob\Programming\attache (master -> origin)
λ attache retrieve.@
testing

Луа, 57 53 51 байт

Store, 27 байт

io.open("x","w"):write(...)

Получить, 24 байта

print(io.open"x":read())

РУБИН

Store (24 байта)

File.write('a', ARGV[0])

Получить (16 байт)

p File.read('a')

C (Unix / GNU), 23 + 23 = 46 байт

Store, 27 23 байта

main(){system("dd>f");}

Получить, 27 23 байта

main(){system("dd<f");}

Это в основном оборачивает ответ Джофеля в C-программу.

Примечание. ddКоманды выводят некоторую статистику stderr, поэтому вы увидите некоторые дополнительные выходные данные, когда вы наивно запустите ее в оболочке. Тем не менее, поскольку задача только говорит о том, что хранимая строка должна быть представлена stdout, а не stderrя полагаю, что разрешено иметь дополнительный вывод на stderr... В любом случае, подавить stderrвывод так же просто, как заменить ddна cat, увеличивая число байтов две программы по одной, каждая.

PHP, 26 + 1 + 21 = 48 байт

Store.php:

<?fputs(fopen(s,w),$argn);

Беги с echo <input> | php -nF Store.php.

Retrieve.php:

<?=fgets(fopen(s,r));

Беги с php -n Retrieve.php.

C (gcc) , 77 67 + 25 = 92 байта

Компилирует только несколько предупреждений на моем gcc.

store.c

#include<stdio.h>
main(int c,char**v){fputs(v[1],fopen("f","w"));}

Может быть, можно сыграть в гольф, но я не могу понять, как. Segfaults, если вы ничего не передадите, но что угодно.

Питер Кордес: -1

read.c

main(){system("cat f");}

Пакет - 11 байт

%12>f
type f

Входные данные принимаются в качестве аргумента командной строки и сохраняются (с сообщением об ошибке, созданным при попытке выполнения, поскольку CMD пытается выполнить параметр) в f.

Пакет - 7 байт (неконкурентный)

'>%1
dir

В имени файла имеется множество недопустимых символов, поэтому для некоторых строк это не сработает, но это, по сути, сохраняет произвольный символ в имени файла, заданном параметром. Чтобы прочитать его, он просто перечисляет все файлы в каталоге, включая нашу строку.