En tiempo de ejecución, sigue solicitando una línea de entrada hasta que la entrada del usuario no sea el nombre de un archivo o directorio existente u otro elemento del sistema de archivos, en relación con el directorio de trabajo actual. Luego devuelva / imprima el último nombre de archivo ingresado. Puede suponer que todas las entradas del usuario serán nombres de archivo válidos.

Pseudocódigo 1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until not filesystem.exists(myform.mytxt.content)
return(myform.mytxt.content)

Pseudocódigo 2

LET TEXT = "."
WHILE HASFILE(TEXT) DO
  TEXT = PROMPT("")
ENDWHILE
RETURN TEXT

Ejemplos de entrada del usuario que provocarán una nueva solicitud cuando esté en TIO:

.
..
.env.tio
/
/bin/[
/lost+found

Ejemplos de entrada del usuario que regresará cuando esté en TIO:

...
env.tio
../../bin/]
/lost/found

Lote, 37 bytes

@set/ps=
@if exist %s% %0
@echo %s%

(Por alguna razón, Windows 10 actual CMD.EXEcorrompe el título cuando ejecuta el %0.)

Mathematica, 33 28 bytes

f:=Input[]/._?FileExistsQ:>f

Esto supone el entorno del cuaderno de Mathematica donde podemos consultar la entrada del usuario con Input[]. La entrada del usuario debe ser un literal de cadena real , por ejemplo, en "ab/cd.ef"lugar de solo ab/cd.ef. Lo bueno es que la entrada puede ser una expresión arbitraria de Mathematica que calcula la cadena de entrada.

Esto define un símbolo fque, cuando se evalúa, realiza el cálculo requerido y, en última instancia, se evalúa hasta la primera entrada de usuario inexistente. Es esencialmente una función nular, donde no tenemos que incluir...[] para llamarla.

También podemos guardar un montón de bytes sobre una Ifexpresión tradicional haciendo uso del operador de sustitución de patrones /..

Perl 5 -ln , 12 10 bytes

-2 bytes gracias a @DomHastings

#!/usr/bin/perl -ln
-e||1/!say

Pruébalo en línea!

Bash, 29

read f
[ -e $f ]&&$0||echo $f

PowerShell 2 (hasta 6), 35 bytes

while(Test-Path($x=Read-Host)){};$x

Read-Hostespera la entrada (si se le da una cadena como parámetro, usa la cadena como indicador). Si la entrada proporcionada es un nombre de archivo (o nombre de carpeta) para uno que existe, se Test-Pathdevuelve $true, y el bloque de no hacer nada se {}ejecuta y vuelve a solicitar la entrada. Si se Test-Pathdevuelve $falseporque la entrada no es un archivo o carpeta existente, el bloque de no hacer nada no se ejecuta y se imprime el nombre de la entrada.

C (gcc) , 62 bytes

main(){char b[99];while(scanf("%s",b)&&!access(b,0));puts(b);}

Pruébalo en línea!

main(){
    char b[99]; // Declare buffer b
    while (scanf("%s",b)&&!access(b,0));    // Take one line of input, and test if file is accessible (exists)
    puts (b);   // If doesn't exist, loop ends and print file
}

Funky , 40 bytes

tryfor)io.open(s=io.read())catchprint(s)

En un verdadero estilo funky, esto utiliza palabras clave atascadas entre sí, paréntesis inigualables y palabras clave implícitas. Limpiado, esto se ve así:

try{
    while(true){
        s = io.read()
        io.open(s)
    }
}catch(e){
    print(s)
}

Descompostura

try                                     // Try statement, this one is expected to fail.
   for)                                 // for) is a for loop with no arguments, which is functionally equivilent to a while(true) loop, much like for(;;)
       io.open(                         // Try to open a file relative to the CWD. If this fails to find a file, it will throw an error and escape the try/catch
               s=io.read()              // Read a line from STDIN and store it as s, this will still pass it to the arguments of the call.
                          )
                           catch        // When io.open fails
                                print(s)// Print out the last entered line.

Haskell , 76 bytes

import System.Directory
f=do x<-getLine;b<-doesPathExist x;last$pure x:[f|b]

Pruébalo en línea!

Devuelve IO xdonde xestá el nombre ingresado del archivo que no existe.

Sin golf

import System.Directory

insist = do { file <- getLine;
              exists <- doesPathExist file;
              if exists then insist else pure file }

R , 66 51 bytes

while((s=readline())%in%list.files(a=T)){};print(s)

-15 bytes gracias a plannapus

Ejecuta un bucle potencialmente infinito, donde en cada iteración

1. Se almacena una sola línea de entrada del usuario en la variable s
2. Verificamos si la entrada está en la lista de nombres de archivo para el directorio de trabajo (la a=Topción paralist.files() debe usarse para recoger cosas como.. )
3. Si sestá en esa lista, pasamos a la siguiente iteración; si no, rompemos el ciclo e imprimimos s.

Python 3 , 55 bytes

import glob
s="."
while glob.glob(s):s=input()
print(s)

Pruébalo en línea!

-4 bytes gracias a ManfP
-6 bytes gracias a Rick Rongen

C #, 101 bytes

()=>{var s="";try{for(;;System.IO.File.GetAttributes(s=System.Console.ReadLine()));}catch{}return s;}

Para cada uno de los 4 valores de retorno válidos:

• Pruébalo en línea!(devoluciones '...')

• Pruébalo en línea!(devuelve 'env.tio')

• Pruébalo en línea!(devuelve '../..bin/])

• Pruébalo en línea!(devuelve '/ perdido / encontrado)

Sin golf

() =>
{
    var s = "";
    try
    {
        for(;; System.IO.File.GetAttributes(s = System.Console.ReadLine()));
    }
    catch {}
    return s;
}

Explicación

se basa en el hecho de que File.GetAttributes () produce una excepción si el objeto del sistema de archivos especificado en su argumento no existe.

Powershell 3.0, 75 bytes

$x=1;while($x){$i=Read-Host;$x=Test-Path("$PSScriptRoot\$i")};Write-Host $i

Primer intento; Estoy seguro de que hay algunas optimizaciones que podría hacer.

Una forma ligeramente más legible:

$x=1;                                                                       # Make sure we enter our while loop.
     while($x){                                                             # While we keep getting file names,                   
               $i=Read-Host;                                                # Get input from the user
                            $x=Test-Path("$PSScriptRoot\$i")};              # Combine our path with the user input, and see if it already exists.
                                                              Write-Host $i # Return the final (valid) file name.

Java 9, 87 bytes

v->{String s;for(;new java.io.File(s=System.console().readLine()).exists(););return s;}

Sin golf

La JVM de TIO aparentemente no tiene sistemaConsole , por lo que no es comprobable allí (ver System.console()).

import java.util.function.*;
class Main {
  public static void main(String[] args) {
    Function<Void,String> f =


v->{
  String s;
  for(;new java.io.File(s=System.console().readLine()).exists(););
  return s;
}


;
    System.out.println(f.apply(null));
  }
}

JavaScript (Node.js) , 158 118 bytes

require('readline').createInterface({input:process.stdin}).on('line',s=>require('fs').existsSync(s)||--console.log(s))

Pruébalo en línea!

Gracias a @ ConorO'Brien por proponer una versión más corta. Objetos en línea en lugar de usar consts y utilizar la condición de salida de error en lugar de salir explícitamente.

Limpio , 100 94 bytes

import System.IO,System.File
Start w#(s,w)=evalIO getLine w
#(b,w)=fileExists s w
|b=Start w=s

Pruébalo en línea!

versión de una sola expresión:

import System.IO,System.File
Start w=(\(s,v)=(\(b,w)|b=Start w=s)(fileExists s v))(evalIO getLine w)

Pruébalo en línea!

Perl 6, 39 bytes

my$f=".";while $f.IO.e {$f=get};say $f;

Esto funciona en REPL, pero no parece funcionar correctamente en TIO.

PHP, 43 bytes

<?for(;file_exists($f=readline()););echo$f;

Ejecutar como CLI. Muy fácil de entender.

Ruby , 40 39 37 bytes

{}while File.exist? gets.chomp
$><<$_

Pruébalo en línea!

APL (Dyalog) , 17 bytes

{⍞}⍣{~⎕NEXISTS⍺}⍬

Pruébalo en línea!

Kotlin , 67 bytes

val f={var s="."
while(java.io.File(s).exists()){s=readLine()!!}
s}

Pruébalo en línea!

Adjunto , 35 bytes

{While[FileExists[x:=Prompt[]],0]x}

Pruébalo en línea!

Soluciones alternativas

35 bytes: {If[FileExists[x:=Prompt[]],$[],x]} función recursiva.

37 bytes:, {NestWhile[p:=Prompt,p[],FileExists]} función iterativa.

Min , 38 bytes

"." :a (a exists?) ("" ask @a) while a

Deja el último nombre de archivo ingresado en la pila.

Explicación

"."         ; Put . on the stack. Every directory should contain this...
:a          ; Assign to a
(a exists?) ; A quot that checks if a exists in current directory
("" ask @a) ; Read line from stdin, assign to a
while       ; Do the second quote while the first leaves true on the stack
a           ; Leave a on the stack

SmileBASIC, 27 bytes

INPUT S$EXEC!CHKFILE(S$)?S$