Lors de l'exécution, continuez à demander une ligne d'entrée jusqu'à ce que l'entrée utilisateur ne soit pas le nom d'un fichier ou d'un répertoire existant ou d'un autre élément du système de fichiers, par rapport au répertoire de travail actuel. Puis retournez / imprimez le dernier nom de fichier entré. Vous pouvez supposer que toutes les entrées utilisateur seront des noms de fichiers valides.

Pseudo-code 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)

Pseudo-code 2

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

Exemples de saisie utilisateur qui entraîneront une nouvelle invite lorsque sur TIO:

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

Exemples d'entrées utilisateur qui seront renvoyées sur TIO:

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

Lot, 37 octets

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

(Pour une raison quelconque, Windows 10 actuel CMD.EXEcorrompt le titre lorsqu'il exécute le %0.)

Mathematica, 33 28 octets

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

Cela suppose l'environnement de bloc-notes de Mathematica dans lequel nous pouvons interroger les entrées de l'utilisateur avec Input[]. L'entrée utilisateur doit être un littéral de chaîne réel , par exemple "ab/cd.ef"au lieu de simplement ab/cd.ef. L'avantage est que l'entrée peut être une expression Mathematica arbitraire qui calcule la chaîne d'entrée.

Ceci définit un symbole fqui, une fois évalué, effectue le calcul requis et évalue finalement la première entrée utilisateur inexistante. C'est essentiellement une fonction nulle, où nous n'avons pas à l'inclure ...[]pour l'appeler.

Nous pouvons également enregistrer un tas d'octets sur une Ifexpression traditionnelle en utilisant l'opérateur de substitution de modèle /..

Perl 5 -ln , 12 10 octets

-2 octets grâce à @DomHastings

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

Essayez-le en ligne!

Bash, 29

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

PowerShell 2 (jusqu'à 6), 35 octets

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

Read-Hostattend l'entrée (si une chaîne est donnée en paramètre, utilise la chaîne comme invite). Si l'entrée fournie est un nom de fichier (ou un nom de dossier) pour celui qui existe, Test-Pathretourne $trueet le bloc de ne rien faire {}s'exécute, et il ré-invite à entrer. Si Test-Pathrenvoie $falsecar l'entrée n'est pas un fichier ou un dossier existant, le bloc ne rien faire ne s'exécute pas et le nom de l'entrée est imprimé.

C (gcc) , 62 octets

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

Essayez-le en ligne!

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 octets

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

Dans un véritable style funky, cela utilise des mots clés coincés les uns contre les autres, des crochets inégalés et des mots clés implicites. Nettoyé, cela ressemble à:

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

Panne

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 octets

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

Essayez-le en ligne!

Renvoie IO xoù xest le nom entré du fichier qui n'existe pas.

Non golfé

import System.Directory

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

R , 66 51 octets

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

-15 octets grâce à plannapus

Exécute une boucle potentiellement infinie, où à chaque itération

1. Une seule ligne d'entrée utilisateur est stockée dans la variable s
2. Nous vérifions si l'entrée est dans la liste des noms de fichiers pour le répertoire de travail (l' a=Toption pour list.files()doit être utilisée pour ramasser des choses comme ..)
3. Si sest dans cette liste, nous passons à l'itération suivante; sinon, nous rompons la boucle et imprimons s.

Python 3 , 55 octets

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

Essayez-le en ligne!

-4 octets grâce à ManfP
-6 octets grâce à Rick Rongen

C #, 101 octets

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

Pour chacune des 4 valeurs de retour valides:

• Essayez-le en ligne! (Retour '...')

• Essayez-le en ligne! (retourne 'env.tio')

• Essayez-le en ligne! (renvoie '../..bin/])

• Essayez-le en ligne! (retourne / perdu / trouvé)

Non golfé

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

Explication

repose sur le fait que File.GetAttributes () lève une exception si l'objet du système de fichiers spécifié dans son argument n'existe pas.

Powershell 3.0, 75 octets

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

Premier essai; Je suis sûr qu'il y a quelques optimisations que je pourrais faire.

Une forme un peu plus lisible:

$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 octets

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

Non golfé

La JVM de TIO n'a apparemment pas de systèmeConsole , elle n'est donc pas testable (voir 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 octets

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

Essayez-le en ligne!

Nous remercions @ ConorO'Brien d'avoir proposé une version plus courte. Objets alignés au lieu d'utiliser des consts et d'utiliser une condition de sortie d'erreur au lieu de quitter explicitement.

Nettoyer , 100 94 octets

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

Essayez-le en ligne!

version à expression simple:

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

Essayez-le en ligne!

Perl 6, 39 octets

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

Cela fonctionne dans le REPL, mais il ne semble pas fonctionner correctement dans TIO.

PHP, 43 octets

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

Exécuter en tant que CLI. Assez facile à comprendre.

Rubis , 40 39 37 octets

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

Essayez-le en ligne!

APL (Dyalog) , 17 octets

{⍞}⍣{~⎕NEXISTS⍺}⍬

Essayez-le en ligne!

Kotlin , 67 octets

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

Essayez-le en ligne!

Attaché , 35 octets

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

Essayez-le en ligne!

Solutions alternatives

35 octets {If[FileExists[x:=Prompt[]],$[],x]} :, fonction récursive.

37 octets {NestWhile[p:=Prompt,p[],FileExists]} :, fonction itérative.

Min , 38 octets

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

Laisse le dernier nom de fichier entré sur la pile.

Explication

"."         ; 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 octets

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