RosettaCodeData/Task/Unix-ls/Picat/unix-ls.picat

8 lines
158 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
import os, util.
main =>
println(ls()),
println(ls("foo/bar")).
ls() = ls(".").
ls(Path) = [F : F in listdir(Path), F != ".",F != ".."].sort.join('\n').