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

Ви напишете дві програми (обидві однією мовою). Програма зберігання приймає рядок від 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 до стандартних правил IO. Я не можу, бо це введе занадто багато лазівки. У деяких стандартних параметрах вводу-виводу вже вхід зберігається послідовно, наприклад, "програми можуть приймати дані з файлу". Я хотів би бути більш гнучким, ніж просто суворі STDIN та STDOUT, але без відкриття шлюзів.

Зі стандартних ниток правил вводу-виводу я вибираю вишні, які не порушують завдання:

• Програми можуть приймати введення через підказки GUI та підказки командного рядка, якщо ви хочете

• Програми можуть виводитись, відображаючи їх на екрані. Сюди входять діалоги GUI

• Програми можуть приймати дані через аргументи командного рядка

• Програми можуть виводити на STDERR, але насправді не можуть виправити помилки.

Якщо ви використовуєте альтернатив, він повинен бути інтерактивним. Користувачеві не слід виконувати будь-яку іншу роботу, окрім того, щоб передавати вхід у вашу програму, вводити його у підказку, яке надає ваша програма, або вводити введення як командний рядок-аргументу вашої програми. Користувачеві не слід нічого робити, крім запуску програми для отримання, щоб побачити вихід, який відображається на екрані або надісланий STDOUT або STDERR.

Дозволені припущення:

• Ваші дві програми будуть запускатися в одному каталозі
• Ваші програми мають дозволи для читання та запису для цього каталогу
• Файли, які ви створюєте, переживуть перезавантаження (не в темп режимі)
• Допускається одна нижня лінія рядка, яка не була частиною рядка. Немає інших пробілів

Це код-гольф, а ваш рахунок - це сума байтів обох програм.

zsh, 4 байти

Зберігати: >f(читає з STDIN і записує у файл під назвою f)
Отримайте: <f(записує вміст fу STDOUT)

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

Магазин:  (просто введіть рядок)
Отримайте: 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 байт

Магазин (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# немає потреби -, stdin за замовчуванням

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 байти за це завдяки quack @Cows)

Python 3, 56 байт

Магазин (33 байти)

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

Отримати (23 байти)

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

Друкується із заднім рядком.

Japt, 46 30 байт

^{-16 байт завдяки Шаггі .}

Один із перших разів, коли я спробував використовувати Japt. JS eval іноді може бути неповоротким. Використовує браузер window.localStorage.

Магазин (16 байт)

Ox`lo¯lSÈSge.P=U

Отримати (14 байт)

Ox`lo¯lSÈSge.P

Haskell, 46 байт

Магазин (26 байт):

getContents>>=writeFile"t"

Отримати (20 байт):

readFile"t">>=putStr

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

Набір (16 байт)

IO.write'a',gets

Отримати (10 байт)

IO.read'a'

MATLAB (30 байт)

Набір (22 байти)

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

Можна погладити 4 байти, змінивши на input(''), але для цього знадобиться введення в одних лапках:'input string'

Отримати (8 байт)

load a;a

C (GCC), 98 байт

Магазин (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);}

Нездатність

• Потрібно, щоб підходило кілька типів вказівників 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 для вашого імені користувача!

Магазин, 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 байт

Набір, 74 байти:

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

Я насправді не впевнений у цьому, але це відповідає критеріям. Для минулих записів враховувались лише варіанти кліпів, тож саме з цим я йду.

Читання, 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 байт

Магазин, 27 байт

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

Отримайте, 24 байти

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

RUBY

Магазин (24 байти)

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

Отримати (16 байт)

p File.read('a')

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

Магазин, 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

У назві файлу є безліч недійсних символів, тому це не працює для деяких рядків, але це по суті зберігає довільний символ до імені файлу, заданого параметром. Щоб прочитати його, він просто перераховує всі файли в каталозі, включаючи наш рядок.